您选择了一个最糟糕的JSON示例，因为它的结构不必要地将所有内容放入数组中（总是[{和]}）当数组元素已经足够的时候。你应该抓住一个更简单的例子，从那个开始，来熟悉什么是对象，什么是数组。同样，我重组并缩短了JSON数据，使其更小，更清晰。如果您设法理解您可以继续并到达您的strength属性：

uses
  SuperObject;

var
  json, next: ISuperObject;
  text: String;
  sts: TSuperTableString;
  sa: TSuperArray;
  i: Integer;
begin
  text:=
  '{' +                        // {Object} starts
  '  "problems": [' +          //   1st "property" of object, value is an [array]
  '    {' +                    //     1st [element] of array is an {object}
  '      "Diabetes": "yes"' +  //       1st "property" of object is a "text"
  '    }' +                    //     {Object} ends after just 1 "property"
  '  ],' +                     //   [Array] ends after just 1 [element]
  '  "Asthma": [' +            //   2nd "property" of object, value is an [array] again
  '    {}' +                   //     1st [element] of array is an (empty) {object}
  '  ]' +                      //   [Array] ends after just 1 [element]
  '}';                         // {Object} ends after 2 "properties"

  json:= SO( text );

  if json.IsType( stObject ) then begin  // Is this even JSON (which must be an object)?
    sts:= json.AsObject;
    if sts.Find( 'problems', next ) then begin  // Does a property "problems" exist?
      if next.IsType( stArray ) then begin  // Is its value an array?
        sa:= next.AsArray;
        for i:= 0 to sa.Length- 1 do begin  // Iterate all array elements
          next:= sa[i];
          if next.IsType( stObject ) then begin  // Is this element an object?
            sts:= next.AsObject;

            sts.S['key']:= 'value';  // Adding our own property "key" to that object

            if sts.Find( {'Diabetes'} 'key', next ) then begin  // Does a property "key" exist?
              Caption:= 'Found it!';
              if next.IsType( stString ) then begin  // Is the property of type "text"?
                Caption:= Caption+ ' Value='+ next.AsString;  // Should be "value"
              end;
              break;  // Leave array loop
            end;
          end;
        end;
      end;
    end;
  end;
end;

使用调试器单步调试它，看看最终到达属性Diabetes所需的每个检查，然后检查它的值是否实际上是文本（而不是另一个对象/数组）。
初始JSON数据的一个更好的格式应该是这样的，摆脱了不必要的数组，还使用数字作为数据类型，而不仅仅是文本（语法是有效的，可能看起来有点奇怪，但我认为这是一个更合乎逻辑的显示）：

{ "problems": 
  { "Diabetes": 
    { "medications":
      [
        [
          { "name": "Asprin"
          , "strength_mg": 500
          }
        ,
          { "name": "Arsen"
          , "strength_mg": 20
          }
        ]
      ,
        [
          { "name": "Toracin"
          , "strength_ml": 10
          }
        ,
          { "name": "Ambroxol"
          , "strength_mg": 350
          }
        ]
      ]
    , "labs": 
      { "test_chamber": 3
      }
    }
  , "Asthma": null
  }
, "is_insured": false
}

您有一个数组problems和另一个数组Diabetes。您可以简单地执行以下操作：

if Assigned(json['problems[0].Diabetes[0]']) then
    Memo1.Lines.Add('problems found + Diabetes found');

或在两个数组内循环：

if Assigned(json['problems']) then
  begin
    for i := 0 to json['problems'].AsArray.Length - 1 do
    begin
      Memo1.Lines.Add('"problems" found');

      if Assigned(json['problems'].AsArray[i]['Diabetes']) then
      begin
        for j := 0 to json['problems'].AsArray[i]['Diabetes'].AsArray.Length - 1 do
          Memo1.Lines.Add('"problems.Diabetes" found')
      end
      else
        Memo1.Lines.Add('"problems.Diabetes" not found');
    end;
  end
  else
    Memo1.Lines.Add('"problems" not found');

如果你不熟悉 Delphi / JSON，使用System.JSON比这个外部库更容易使用