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

This commit is contained in:
Andrea Ciotti 2020-03-11 09:03:30 +01:00
parent 36c2a2201e
commit 2bb620bec2

View File

@ -614,7 +614,7 @@ begin
ftBoolean:
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;
ftLargeint, ftAutoInc, ftLongword: