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

* fcl-db: dbase: follow upstream commit r319:

Browse Source 
When filtering, the RecNo was wrong
  Corrects RecNo when filtering

git-svn-id: trunk@26291 -
This commit is contained in:
reiniero 2013-12-27 13:12:07 +00:00
parent eaba90dda7
commit 076ff1f47a
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packages/fcl-db/src/dbase/dbf.pas
View File

@ -2267,10 +2267,12 @@ var
begin
if FCursor <> nil then
begin
if State = dsCalcFields then
pBuffer := CalcBuffer
case State of
dsFilter: pBuffer := FFilterBuffer;
dsCalcFields: pBuffer := CalcBuffer;
else
pBuffer := ActiveBuffer;
end;
Result := pDbfRecord(pBuffer)^.SequentialRecNo;
end else
Result := 0;