perfekt!
Danke, das war der entscheidende Tipp.
So geht's:
Delphi-Quellcode:
procedure TForm3.Button2Click(Sender: TObject);
var
JSON: ISuperObject;
ITEMS: ISuperObject;
Item: ISuperObject;
myString:PWideChar;
I: Integer;
test: TSuperArray;
begin
myString:='{"totalItems": 2,"items": [{"id": "1084qDfu6mcC"},{"id": "W-nURwAACAAJ"}]}';
JSON := TSuperObject.ParseString(myString, False);
ShowMessage(JSON.S['totalItems']) ;
ITEMS := JSON.O['items'];
test:=ITEMS.AsArray;
for i:=0 to test.Length-1 do
begin
Item := test.O[i];
ShowMessage(Item.S['id']); // das gibt die ids aus :-)
end;
end;
Jetzt kann ich mich daran machen, die ganze Struktur auszuwerten (jeder Eintrag des Arrays hat dann wieder 6 Werte, die teils wieder Arrays und teils Records sind und das ganze auf 4 Ebenen geschachtelt) -- aber das hat jetzt Zeit bis morgen.
Danke für die rasche Hilfe.