Hallo,
es tut mir wirklich leid, aber ich bekomme es nicht hin, bei id 3272 etwas zu ändern bzw. Werte hinzu zu fügen. Ich habe nichts bei Google gefunden. Eventuell suche ich auch falsch. Es wäre super wenn jemand mir verraten würde was ich machen muss.
Delphi-Quellcode:
for i:=0 to arr.Length-1 do begin
id:=arr.O[i].S['id'];
if ( id='3272' ) then begin
// ????
end;
locked:=arr.O[i].S['locked'];
end;
Schonmal vielen Dank im voraus
[EDIT]
Ich habe es gefunden. Ob das aber so "sauber" ist weiß ich nicht.
Delphi-Quellcode:
procedure ParseJson;
var
id :String;
locked :String;
success :boolean;
obj :iSuperObject;
arr :TSuperArray;
i :Integer;
json :TStringList;
Mem :TMemoryStream;
x :ISuperObject;
begin
try
json:=TStringList.Create;
json.LoadFromFile('json.txt');
obj:=so(json.Text);
success:=obj.B['success'];
arr:=obj.A['invoices'];
for i:=0 to arr.Length-1 do begin
id:=arr.O[i].S['id'];
if ( id='3272' ) then begin
x:=SO;
x.S['test']:='doedel';
arr.O[i].Merge(x);
end;
locked:=arr.O[i].S['locked'];
end;
finally
json.Free;
end;
Mem:=TMemoryStream.Create;
obj.SaveTo(Mem);
Mem.Position:=0;
Mem.SaveToFile('json1.txt');
Mem.Free;
end;
[/EDIT]