paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-04-05 21:47:47 +02:00
Code Issues Packages Projects Releases Wiki Activity

* TJSJSON.Parse must return a JSValue, JSON spec was amended (https://tools.ietf.org/html/rfc7159)

Browse Source
This commit is contained in:
michael 2018-02-08 20:28:36 +00:00
parent c9c60fe061
commit 8082c6993e
3 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
demo/fcldb/demorest.lpr
View File

@ -1,6 +1,6 @@
program demorest;
uses sysutils, classes, js, web, db, jsondataset, restconnection;
uses sysutils, classes, js, web, db, extjsdataset, jsondataset, restconnection;
Type

2
packages/fcl-db/db.pas
View File

@ -3553,7 +3553,7 @@ Var
B : TBookmark;
begin
O:=TJSJSON.parse(Value);
O:=TJSJSON.parseObject(Value);
B.Flag:=TBookmarkFlag(O.Properties['flag']);
B.Data:=O.Properties['Index'];
GotoBookMark(B)

4
packages/rtl/js.pas
View File

@ -567,7 +567,9 @@ type
TJSJSON = class external name 'JSON' (TJSObject)
Public
class function parse(aJSON : String) : TJSObject;
class function parse(aJSON : String) : JSValue;
// Use this only when you are sure you will get an object, no checking is done.
class function parseObject(aJSON : String) : TJSObject; external name 'parse';
class function stringify(aValue : JSValue) : string;
class function stringify(aValue,aReplacer : JSValue) : string;
class function stringify(aValue,aReplacer : JSValue; space: NativeInt) : string;