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;