TDBF does not support FindFirst, FindNext, FindPrior or FindLast functions
Original Reporter info from Mantis: LesKaye
-
Reporter name: Leslie Kaye
Original Reporter info from Mantis: LesKaye
- Reporter name: Leslie Kaye
Description:
TDBF always responds with Result:= False which is inherited from TDataSet FindFirst, FindNext, FindPrior and FindLast
Additional information:
the following functions should be declared in
\fpc\2.2.3\source\packages\fcl-db\src\dbase\dbf.pas
public
function FindFirst: Boolean;
function FindLast: Boolean;
function FindNext: Boolean;
function FindPrior: Boolean;
and implemented as follows
function TDbf.FindFirst: Boolean;
begin
Result:= inherited or FindRecord(True, True):
end;
function TDbf.FindLast: Boolean;
begin
Result:= inherited or FindRecord(True, False);
end;
function TDbf.FindNext: Boolean;
begin
Result:= inherited or FindRecord(False, True):
end;
function TDbf.FindPrior: Boolean;
begin
Result:= inherited or FindRecord(False, False);
end;
Mantis conversion info:
- Mantis ID: 13017
- Version: 2.2.3
- Fixed in version: 3.0.0
- Fixed in revision: 24107 (#2569f52b)
- Monitored by: » Joost (Joost van der Sluis)
- Target version: 2.7.1