Erfahrungen mit TJsonSerializer

[Blup]

Versuch doch mal so:

Delphi-Quellcode:

var
  tmp: TTest;
begin
  tmp := TTest.Create;
  try
    tmp.Test := "Wert2";
    tmp.Test2 := 12;

    memOutput.Lines.Text := TJson.ObjectToJsonString(tmp);
  finally
    tmp.Free;
  end;
end;

Delphi-Quellcode:

var
  tmp: TTest;
begin
  tmp := TJson.JsonToObject<TTest>(memOutput.Lines.Text);
  try
    memOutput.Lines.Clear;
    memOutput.Lines.Add(Format('tmp.Test: %s', [tmp.Test]));
    memOutput.Lines.Add(Format('tmp.Test2: %d', [tmp.Test2]));
  finally
    tmp.Free;
  end;
end;