Seriallisieren/Deseriallisieren von Enums via RTTI

[TiGü]

Nicht selber stricken!
Schau doch mal, wie weit du mit den schon eingebauten Mechanismen kommst.

Delphi-Quellcode:

uses 
  REST.JSON,
  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;