Und ein Problem hab ich dann doch noch.
Ich habe ja 2 Properties als enumeration type.
Delphi-Quellcode:
TEMStatus=(emsNeu, emsIB, emsKorr, emsGepr);
TEMDringlichkeit=(emdLowest, emdLower, emdNormal, emdHigh, emdHighest);
property Status: TEMStatus read FStatus write SetStatus;
property Dringlichkeit: TEMDringlichkeit read FDringlichkeit write SetDringlichkeit;
Das würde ich auch gerne so belassen.
Diese werden von TJson.JsonToObject<TErrorMessage>(messageJson as TJsonObject) nicht korrect gesetzt. Wahrscheinlich eher gar nicht, da json selbst diese Datentypen nicht kennt.
Da ich sie auch nicht im Create vordefiniere, bleiben sie ohne wert und können bei der späteren Verwendung auch nicht korrekt gecastet werden.
Wie löst man sowas? Im JSON sind die ja als Integer drin.