Da es halbwegs zum Thema gehört stelle ich die Frage hier mit
Ich muss ja Server seitig die Ausgabe auch in Json verpacken.
nun habe ich mir mal ein Example angesehen
http://docwiki.embarcadero.com/Libra...Object.AddPair
Delphi-Quellcode:
uses System.json;
var
Obj, ObjCons, ObjIpp: TJSONObject;
begin
Obj := TJSONObject.Create;
try
ObjIpp := TJSONObject.Create;
ObjIpp.AddPair('ipp', TJSONNumber.Create(1122368));
ObjCons := TJSONObject.Create;
ObjCons.AddPair('decision', 'NA');
ObjCons.AddPair('idPatient', ObjIpp);
ObjCons.AddPair('idStructure', TJSONNumber.Create(300000000023887));
Obj.AddPair('consentement', ObjCons);
Memo1.Lines.Add(Obj.ToJSON);
finally
Obj.Free;
end;
end;
Funkpionieren tut es. Die Frage ist, warum brauche ich manchmal ein Create/Free und manchmal nicht? Kann mir das jemand erklären?
Gruß
SM
