paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-14 11:09:41 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ fcl-db/dbase: implemented FindFirst,FindNext,FindPrior,FindLast and associated tests

Browse Source 
git-svn-id: trunk@24107 -
This commit is contained in:
reiniero 2013-04-01 14:21:04 +00:00
parent 373ab729c7
commit 2569f52b73
3 changed files with 35 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -260,7 +260,11 @@ type
procedure SetFieldData(Field: TField; Buffer: Pointer);
{$ifdef SUPPORT_OVERLOAD} overload; {$endif} override; {virtual abstract}
{ virtual methods (mostly optionnal) }
{ virtual methods (mostly optional) }
function FindFirst: Boolean; override;
function FindLast: Boolean; override;
function FindNext: Boolean; override;
function FindPrior: Boolean; override;
function GetDataSource: TDataSource; {$ifndef VER1_0}override;{$endif}
function GetRecordCount: Integer; override; {virtual}
function GetRecNo: Integer; override; {virtual}
@ -753,6 +757,30 @@ begin
SetFieldData(Field, Buffer, true);
end;
function TDbf.FindFirst: Boolean;
begin
// Use inherited function; if failed use FindRecord
Result:=inherited FindFirst or FindRecord(True, True);
end;
function TDbf.FindLast: Boolean;
begin
// Use inherited function; if failed use FindRecord
Result:=inherited FindLast or FindRecord(True, False);
end;
function TDbf.FindNext: Boolean;
begin
// Use inherited function; if failed use FindRecord
Result:=inherited FindNext or FindRecord(False, True);
end;
function TDbf.FindPrior: Boolean;
begin
// Use inherited function; if failed use FindRecord
Result:=inherited FindPrior or FindRecord(False, False);
end;
procedure TDbf.SetFieldData(Field: TField; Buffer: Pointer; NativeFormat: Boolean); {overload; override;}
{$else}
const
@ -1299,7 +1327,7 @@ begin
Result := 0;
end;
function TDbf.GetLanguageStr: String;
function TDbf.GetLanguageStr: string;
begin
if FDbfFile <> nil then
Result := FDbfFile.LanguageStr;
@ -2293,7 +2321,7 @@ begin
end;
end;
procedure TDbf.SetTableName(const s: string);
procedure TDbf.SetTableName(const S: string);
var
lPath: string;
begin

1
packages/fcl-db/src/dbase/history.txt
View File

@ -32,6 +32,7 @@ BUGS & WARNINGS
FreePascal trunk:
- implemented FindFirst,FindNext,FindPrior,FindLast
- compile fix for FPC 2.6.2 (r24069), possibly useful for Delphi
------------------------

4
packages/fcl-db/src/dbase/readme.txt
View File

@ -16,4 +16,6 @@ License is LGPL (Library General Public License); see COPYING.LIB for details.
Development notes/additions to end user documentation
property RecNo: approximate record number. Does not take deleted records into account. Used mainly in grids.
property RecNo: approximate record number. Does not take deleted records into account. Used mainly in grids.