Delphi-Quellcode:
Var
jValue :TJSONValue;
jArray: TJSONArray;
Obj: TJsonObject;
RESTRequest1.Execute;
jValue := RESTResponse1.JSONValue;
// Im Memo steht nun die JSON Antwort, so wie ich sie erwarte.
Memo1.Text := jValue.ToString;
jArray := RESTResponse1.JSONValue as TJSONArray;
// ist überhaupt was im Array?
if jArray.Count>0 then begin
obj:=jArray.Items[0] as TJSONobject
[... hier dann was mit dem obj machen ...]
end;
// oder alle Elemente durchgehen...
for var i:=0 to jArray.Count-1 do begin
[... mit jedem Item irgendwas machen ...]
end;
Das sollte vielleicht nochmal einen Ansatz liefern, um etwas mehr mit dem Zeug arbeiten zu können.
