String zerlegung

[schlecki]

Zitat von schwa226:

Jetzt habe ich aber doch noch Probleme den JSON String auszuwerten.

1. ich muss vorne und hinten die Klammern '[' & ']' entfernen:
data := MidStr(data, 2, Length(data) - 1);

lass die mal lieber drin. Dabei handelt es sich um ein Array von Objekten.

Zitat von schwa226:

Delphi-Quellcode:

  obj1 := obj.AsObject.O['spritPrice'];
  tmpstr:= obj1.AsString;
  // Klammern vorne und hinten entfernen
  tmpstr:= MidStr(tmpstr, 2, Length(tmpstr) - 1);

  obj1 := SO(tmpstr);

  Spritpreis := obj1.AsObject.S['amount'];

Das obj.AsObject kannst du dir sparen. Also direkt obj.O['spritpreise'] Das auslesen sollten dann ungefähr so funktionieren:

Delphi-Quellcode:

var
  iter: TSuperObjectIter;
  spData: ISuperObject;
begin
  spData := SO(data);

  if ObjectFindFirst(spData, iter) then
  begin
    repeat 
      // Hier hast du Zugriff auf die einzelnen Array-Einträge:
      Writeln(iter.val.AsJson(true));
    until not ObjectFindNext(iter);
    ObjectFindClose(iter);
  end;
end;