Wie geht das: JSON Parser

[Bbommel]

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.