paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-16 05:30:37 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fix from 7513

Browse Source 
git-svn-id: trunk@4912 -
This commit is contained in:
marco 2006-10-14 18:24:24 +00:00
parent d509adb9fa
commit 70af850b43
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
fcl/db/memds/memds.pp
View File

@ -841,7 +841,7 @@ end;
procedure TMemDataset.SetRecNo(Value: Integer);
begin
CheckBrowseMode;
if (Value>1) and (Value<=FRecCount) then
if (Value>=1) and (Value<=FRecCount) then
begin
FCurrRecNo:=Value-1;
Resync([]);