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

https://github.com/danieleteti/delphimvcframework/issues/730

Browse Source
This commit is contained in:
Daniele Teti 2024-02-12 18:11:48 +01:00
parent e2f63fd8d7
commit b2ce859b4e
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1,4 +1,4 @@
// *************************************************************************** // ***************************************************************************
// //
// Delphi MVC Framework // Delphi MVC Framework
// //
@ -2112,6 +2112,9 @@ begin
TFieldType.ftFloat, TFieldType.ftFMTBcd, TFieldType.ftBCD: TFieldType.ftFloat, TFieldType.ftFMTBcd, TFieldType.ftBCD:
Field.AsFloat := AJSONObject.F[lName]; Field.AsFloat := AJSONObject.F[lName];
TFieldType.ftExtended:
Field.AsExtended := AJSONObject.F[lName];
ftString, ftWideString, ftMemo, ftWideMemo: ftString, ftWideString, ftMemo, ftWideMemo:
Field.AsWideString := AJSONObject.S[lName]; Field.AsWideString := AJSONObject.S[lName];
@ -2231,6 +2234,9 @@ begin
TFieldType.ftFloat, TFieldType.ftFMTBcd, TFieldType.ftBCD: TFieldType.ftFloat, TFieldType.ftFMTBcd, TFieldType.ftBCD:
Field.AsFloat := AJSONObject.F[lName]; Field.AsFloat := AJSONObject.F[lName];
TFieldType.ftExtended:
Field.AsExtended := AJSONObject.F[lName];
ftString, ftWideString, ftMemo, ftWideMemo: ftString, ftWideString, ftMemo, ftWideMemo:
Field.AsWideString := AJSONObject.S[lName]; Field.AsWideString := AJSONObject.S[lName];