Delphi/delphimvcframework
1
0
Fork 0
mirror of https://github.com/danieleteti/delphimvcframework.git synced 2024-11-15 07:45:54 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

Delphi 10.2 Tokyo Compatibility Fix (Thanks Mark Lobanov)

Browse Source
This commit is contained in:
Daniele Teti 2024-06-25 12:02:47 +02:00
parent 072fd18392
commit 113fada45a
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
sources/MVCFramework.Serializer.Commons.pas
View File

@ -1087,6 +1087,7 @@ var
lInternalStream: TStream;
lSStream: TStringStream;
lValue: TValue;
lTmpValue: TValue;
lStrValue: string;
{$IF not Defined(TokyoOrBetter)}
lFieldValue: string;
@ -1166,15 +1167,14 @@ begin
// general enumerations
else if (aRTTIField.FieldType.TypeKind = tkEnumeration) then
begin
var Value: TValue;
case aRTTIField.FieldType.TypeSize of
SizeOf(Byte): Value := TValue.From<Byte>(AField.AsInteger);
SizeOf(Word): Value := TValue.From<Word>(AField.AsInteger);
SizeOf(Integer): Value := TValue.From<Integer>(AField.AsInteger);
SizeOf(Byte): lTmpValue := TValue.From<Byte>(AField.AsInteger);
SizeOf(Word): lTmpValue := TValue.From<Word>(AField.AsInteger);
SizeOf(Integer): lTmpValue := TValue.From<Integer>(AField.AsInteger);
else
raise EMVCException.CreateFmt('Unsupported enumeration type for field %s', [AField.FieldName]);
end;
Value.ExtractRawData(PByte(Pointer(AObject)) + aRTTIField.Offset);
lTmpValue.ExtractRawData(PByte(Pointer(AObject)) + aRTTIField.Offset);
end
// plain integers
else