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

  When filtering, the RecNo was wrong
  Corrects RecNo when filtering

git-svn-id: trunk@26291 -

packages/fcl-db/src/dbase/dbf.pas

@@ -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;