Mehrere Json Daten parsen, wie geht das?

[BBoy]

Das muss man erst mal verstehen Hier meine Lösung:

Code:

var
  X, Obj: ISuperObject;
  AMember, OMember: IMember;
begin
  X := TSuperObject.Create(result_string);
  for AMember in X.A['result'] do begin
    for OMember in AMember.AsObject do begin
       Memo1.Lines.Add(OMember.Name + ' = ' + OMember.ToString);
      if omember.Name = 'id' then
        id := omember.asString;
      if omember.Name = 'latitude' then
        lat := omember.asString;
      if omember.Name = 'longitude' then
        lon := omember.asString;
      if omember.Name = 'timestamp' then
        tstamp := omember.asString;
    end;
  end;
end;

Vielleicht kann mir diese Zeile jemand erklären:
for AMember in X.A['result']
Das A verstehe ich überhaupt nicht