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

* Fix compilation after refactoring of ExtJSDataset in separate units, and TJSJSON returns now a JSValue, no longer object

Browse Source
This commit is contained in:
michael 2018-03-06 15:48:55 +00:00
parent c84cab9d4a
commit 3df8a9b070
2 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
demo/fcldb/demodb.lpi
View File

@ -1,7 +1,7 @@
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectOptions>
<Version Value="10"/>
<Version Value="11"/>
<General>
<Flags>
<MainUnitHasCreateFormStatements Value="False"/>
@ -21,9 +21,10 @@
<Version Value="2"/>
</PublishOptions>
<RunParams>
<local>
<FormatVersion Value="1"/>
</local>
<FormatVersion Value="2"/>
<Modes Count="1">
<Mode0 Name="default"/>
</Modes>
</RunParams>
<RequiredPackages Count="2">
<Item1>

4
demo/fcldb/demodb.lpr
View File

@ -1,6 +1,6 @@
program demoxhr;
uses SysUtils, JS, Web, DB, JSonDataset, DBConst;
uses SysUtils, JS, Web, DB, JSonDataset, ExtJSDataset, DBConst;
Type
@ -71,7 +71,7 @@ begin
PanelContent.removeChild(PanelContent.childNodes.item(PanelContent.childNodes.length-1));}
if (xhr.status = 200) then
begin
J:=TJSJSON.parse(xhr.responseText);
J:=TJSJSON.parseObject(xhr.responseText);
DS.Metadata:=TJSObject(J.Properties['metaData']);
DS.Rows:=TJSArray(J.Properties['Data']);
DS.Open;