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

DataSetToJsonObject serializer: Added TFieldType.ftWord to the list of types to be serialized

Browse Source
This commit is contained in:
Andrea Ciotti 2020-03-11 09:03:30 +01:00
parent 36c2a2201e
commit 2bb620bec2
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
sources/MVCFramework.Serializer.JsonDataObjects.pas
View File

@ -614,7 +614,7 @@ begin
ftBoolean: ftBoolean:
AJsonObject.B[lField.FieldName] := ADataSet.Fields[lField.I].AsBoolean; AJsonObject.B[lField.FieldName] := ADataSet.Fields[lField.I].AsBoolean;
ftInteger, ftSmallint, ftShortint, ftByte: ftInteger, ftSmallint, ftShortint, ftByte, ftWord:
AJsonObject.I[lField.FieldName] := ADataSet.Fields[lField.I].AsInteger; AJsonObject.I[lField.FieldName] := ADataSet.Fields[lField.I].AsInteger;
ftLargeint, ftAutoInc, ftLongword: ftLargeint, ftAutoInc, ftLongword: