So,
also mORMot läuft nicht auf 2007. Der möchte
RTTI haben und andere Sachen die es bei 2007 nicht gibt.
Ich habe das Beispiel von softtouch genommen. Allerdings mit einem anderen
superobjekt, eins für 2007.
Dann musste ich den Code leicht ändern und schon klappt es. Nun bekomme ich langsam auch ein Verständnis für JSON.
Hier der Code für 2007:
Delphi-Quellcode:
procedure ParseJson;
var
id :String;
locked :String;
success :boolean;
obj :iSuperObject;
arr :TSuperArray;
i :Integer;
json :TStringList;
begin
try
json:=TStringList.Create;
json.LoadFromFile('json.txt');
obj:=so(json.Text);
success:=obj.B['success'];
arr:=obj.A['data'];
for i:=0 to arr.Length-1 do begin
id:=arr.O[i].S['id'];
locked:=arr.O[i].S['locked'];
end;
finally
json.Free;
end;
end;
Nun versuche selber raus zu finden wie man etwas im JSON ändern kann. Ich wollte ja wenn ich z.b. eine bestimmte ID finde 2 Zeilen/Werte dazu tragen. Sollte ich das nicht hinbekommen würde ich mich nochmal melden.
Ich danke euch allen für die nette Hilfe.