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

* Merging revisions 925 from trunk:

Browse Source 
------------------------------------------------------------------------
    r925 | michael | 2020-11-10 10:35:17 +0100 (Tue, 10 Nov 2020) | 1 line
    
    * Check browse mode before setting recno
    ------------------------------------------------------------------------
This commit is contained in:
michael 2020-11-10 09:48:40 +00:00
commit f0f1855f73
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1747,10 +1747,12 @@ end;
procedure TBaseJSONDataSet.SetRecNo(Value: Integer);
begin
CheckBrowseMode;
DoBeforeScroll;
if (Value < 1) or (Value > FCurrentIndex.Count) then
raise EJSONDataset.CreateFmt('%s: SetRecNo: index %d out of range',[Name,Value]);
FCurrent := Value - 1;
Resync([]);
Resync([]);
DoAfterScroll;
end;