diff options
| author | michael <michael@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2010-08-06 09:04:40 +0000 |
|---|---|---|
| committer | michael <michael@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2010-08-06 09:04:40 +0000 |
| commit | 5bde1e5a459806cb9b234692af10bc12edefc22a (patch) | |
| tree | 7a545670e0b34f23060a6bcdfb6b5b6979f5cb85 /packages/fcl-web/src | |
| parent | 659554b7b00c1726259b8908f630980f7a47b9dd (diff) | |
| download | fpc-5bde1e5a459806cb9b234692af10bc12edefc22a.tar.gz | |
* Null values should be sent as NULL in json
git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@15719 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'packages/fcl-web/src')
| -rw-r--r-- | packages/fcl-web/src/webdata/extjsjson.pp | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/packages/fcl-web/src/webdata/extjsjson.pp b/packages/fcl-web/src/webdata/extjsjson.pp index 152c57d88e..cd5940ae30 100644 --- a/packages/fcl-web/src/webdata/extjsjson.pp +++ b/packages/fcl-web/src/webdata/extjsjson.pp @@ -80,6 +80,9 @@ end; function TExtJSJSONDataFormatter.AddFieldToJSON(O : TJSONObject; AFieldName : String; F : TField): TJSONData; begin + if F.IsNull then + Result:=O.Items[O.Add(AFieldName)] + else Case F.DataType of ftSmallint, ftInteger, |