System.TypeInfo Enumeration

[lxo]

Hallo,

mir ist aufgefallen das Enumeration die fest definiert wurden mit REST.Json.TJson.ObjectToJsonString einfach ignoriert werden.
Wie ich sehe liegt es daran das System.TypeInfo mit so einem Typen nicht klar kommt.

Hat da jemand eine Idee wie das trotzdem funktionieren könnte oder ist das ein Fehler von Delphi?

Delphi-Quellcode:

// TEnum = ( eOne, eTwo, eThree, eFour); // funktioniert
// TEnum = ( eOne = 0, eTwo = 1, eThree = 2, eFour = 3); // funktioniert
 TEnum = ( eOne = 1, eTwo = 2, eThree = 3, eFour = 4); // funktioniert nicht
 TClass = class
 private
   FEnum: TEnum;
 public
   property Enum: TEnum read FEnum write FEnum;
 end;

var
  Form87: TForm87;

implementation

{$R *.dfm}

procedure TForm87.FormCreate(Sender: TObject);
begin
  var lClass := TClass.Create;
  lClass.Enum := eThree;
  var lJsonString := REST.Json.TJson.ObjectToJsonString( lClass);

{ Es liegt wohl an System.TypeInfo,
 wenn man TEnum = ( eOne = 1, eTwo = 2, eThree = 3, eFour = 4); verwendet,
 kann auch gar nicht kompiliert werden }

 //  var ltest := System.TypeInfo( TEnum);
end;