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

* Made DoFilterRecord virtual, so that descendents can add their own filtering easily

Browse Source 
git-svn-id: trunk@20067 -
This commit is contained in:
joost 2012-01-13 21:46:10 +00:00
parent 1499ba9caf
commit 98e05c8100
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/fcl-db/src/base/bufdataset.pas
View File

@ -446,7 +446,6 @@ type
procedure SetMaxIndexesCount(const AValue: Integer);
procedure SetPacketRecords(aValue : integer);
function IntAllocRecordBuffer: TRecordBuffer;
procedure DoFilterRecord(out Acceptable: Boolean);
procedure ParseFilter(const AFilter: string);
procedure IntLoadFielddefsFromFile;
procedure IntLoadRecordsFromFile;
@ -493,6 +492,7 @@ type
procedure SetFiltered(Value: Boolean); override; {virtual;}
procedure InternalRefresh; override;
procedure BeforeRefreshOpenCursor; virtual;
procedure DoFilterRecord(out Acceptable: Boolean); virtual;
{abstracts, must be overidden by descendents}
function Fetch : boolean; virtual;
function LoadField(FieldDef : TFieldDef;buffer : pointer; out CreateBlob : boolean) : boolean; virtual;