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

* Check that currentindex is assigned

Browse Source
This commit is contained in:
michael 2019-07-07 18:39:55 +00:00
parent ee110fbed3
commit 7f010191f5
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packages/fcl-db/jsondataset.pas
View File

@ -1339,8 +1339,12 @@ begin
end;
function TBaseJSONDataSet.GetRecordCount: Integer;
begin
Result:=FCurrentIndex.Count;
if Assigned(FCurrentIndex) then
Result:=FCurrentIndex.Count
else
Result:=0;
end;
function TBaseJSONDataSet.GetRecordSize: Word;