paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 04:26:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Null values should be sent as NULL in json

Browse Source 
git-svn-id: trunk@15719 -
This commit is contained in:
michael 2010-08-06 09:04:40 +00:00
parent f39e793448
commit 67822209c4
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
packages/fcl-web/src/webdata/extjsjson.pp
View File

@ -80,6 +80,9 @@ end;
function TExtJSJSONDataFormatter.AddFieldToJSON(O : TJSONObject; AFieldName : String; F : TField): TJSONData; function TExtJSJSONDataFormatter.AddFieldToJSON(O : TJSONObject; AFieldName : String; F : TField): TJSONData;
begin begin
if F.IsNull then
Result:=O.Items[O.Add(AFieldName)]
else
Case F.DataType of Case F.DataType of
ftSmallint, ftSmallint,
ftInteger, ftInteger,