클래스나 레코드 사용시 바로 JsonString으로 변환하고 다시 객체로 변환시킬 수 있는 방법입니다.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 |
uses REST.JSON; // Also new System.JSON procedure TForm1.Button1Click(Sender: TObject); var Foo: TFoo; begin Foo := TFoo.Create; try Foo.Foo := 'Hello World'; Foo.Fee := 42; Memo1.Lines.Text := TJson.ObjectToJsonString(Foo); finally Foo.Free; end; Foo := TJson.JsonToObject<TFoo>(Memo1.Lines.Text); try Foo.Fee := 100; Memo1.Lines.Add(TJson.ObjectToJsonString(Foo)); finally Foo.Free; end; end; |