Fixes serialization of enumerations from dataset (#755)

Co-authored-by: Francisco Zanini <[email protected]>
danieleteti · Jun 9, 2024 · 6e07eb8 · 6e07eb8
1 parent 07e16a3
commit 6e07eb8
Showing 1 changed file with 9 additions and 1 deletion.
diff --git a/sources/MVCFramework.Serializer.Commons.pas b/sources/MVCFramework.Serializer.Commons.pas
@@ -1166,7 +1166,15 @@ procedure MapDataSetFieldToRTTIField(const AField: TField; const aRTTIField: TRt
         // general enumerations
     		else if (aRTTIField.FieldType.TypeKind = tkEnumeration) then
         begin
-          TValue(AField.AsInteger).ExtractRawData(PByte(Pointer(AObject)) + aRTTIField.Offset);
+          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);
+            else
+              raise EMVCException.CreateFmt('Unsupported enumeration type for field %s', [AField.FieldName]);
+          end;
+          Value.ExtractRawData(PByte(Pointer(AObject)) + aRTTIField.Offset);
         end
         // plain integers
         else