paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-24 08:39:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ fix for bug

Browse Source 
git-svn-id: trunk@4327 -
This commit is contained in:
joost 2006-08-01 21:46:43 +00:00
parent d5aa230395
commit d979196df0
1 changed files with 4 additions and 1 deletions

5
fcl/db/bufdataset.inc
View File

@ -93,7 +93,10 @@ end;
procedure TBufDataset.InternalFirst;
begin
FCurrentRecBuf := nil;
// if FCurrentRecBuf = FLastRecBuf then the dataset is just opened and empty
// in which case InternalFirst should do nothing (bug 7211)
if FCurrentRecBuf <> FLastRecBuf then
FCurrentRecBuf := nil;
end;
procedure TBufDataset.InternalLast;