JSON iterieren, aber wie?

[DeddyH]

Ohne Fehlerbehandlung schnell heruntergetippt:

Delphi-Quellcode:

procedure TForm3.Button1Click(Sender: TObject);
var
  SL: TStringList;
  obj: TJSONObject;
  arr: TJSONArray;
  i: integer;
  subobj: TJSONObject;
begin
  obj := nil;
  SL := TStringList.Create;
  try
    SL.LoadFromFile('C:\temp\TestJSON.txt'); // Das JSON aus Deinem Post
    obj := TJsonObject.ParseJSONValue(SL.Text) as TJSONObject;
    arr := obj.Values['data'] as TJSONArray;
    for i := 0 to arr.Count - 1 do
      begin
        subobj := (arr.Items[i] as TJSONObject).Values['article'] as TJSONObject;
        ShowMessage(subobj.Values['sku'].Value);
      end;
  finally
    SL.Free;
    obj.Free;
  end;
end;