JSON to Object 한줄이면 됩니다.

신입때 잘몰라 헤메고 있으면, 연구소장님이 한마디 하셨어요. 이렇게 저렇게 한줄이면 되겠네~

그때는 참 야속했습니다. -_-);

근데 JSON을 Object(객체)로 바꾸는 작업은 정말 한줄이면 되네요.

(파싱하는 반복작업을 많이 줄이고, 자동화하는데 참고하면 좋을 것 같습니다.)

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(Memo1.Lines.Text);
  try
    Foo.Fee := 100;
    Memo1.Lines.Add(TJson.ObjectToJsonString(Foo));
  finally
    Foo.Free;
  end;
end;