Class TForm1 (unit Fltexm1) |
Inherits from
TForm
Remove this define if you want to test the filtering speed without using the
filter record count function. Most notably faster when filtering BLOB fields
{$define BDEFilterCount
procedure Button1Click(Sender: TObject);
Release buffer space
procedure DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);
procedure FormCreate(Sender: TObject);
procedure BlobFilter(FilterRec: TFilterObject; var Allow: Boolean);
** Filter routine for reading blob fields.
procedure CategoryCod(FilterRec: TFilterObject; var Allow: Boolean);
procedure CommonName(FilterRec: TFilterObject; var Allow: Boolean);
procedure DateFilter(FilterRec: TFilterObject; var Allow: Boolean);
procedure DescStartsWithV(FilterRec: TFilterObject; var Allow: Boolean);
procedure LengthFlt(FilterRec: TFilterObject; var Allow: Boolean);
procedure LengthRange(FilterRec: TFilterObject; var Allow: Boolean);
procedure NumRecords;
Private declarations Set BEFORE call to start
procedure SpeciesNo(FilterRec: TFilterObject; var Allow: Boolean);
Button1 : TButton;
DataSource1 : TDataSource;
DBGrid1 : TDBGrid;
DBMemo1 : TDBMemo;
DBNavigator1 : TDBNavigator;
FilterCallback1 : TFilterCallback;
Label1 : TLabel;
Panel1 : TPanel;
RadioGroup1 : TRadioGroup;
Table1 : TTable;
procedure Button1Click(Sender: TObject);
Release buffer space
procedure DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);
procedure FormCreate(Sender: TObject);
procedure BlobFilter(FilterRec: TFilterObject; var Allow: Boolean);
** Filter routine for reading blob fields. These are presented as streams.
** When the GetBlobData is used, a temporary stream is created to the Fields
** Blob data (an exception occurs if the field is not a blob field). The stream
** is released before the next record is passed in by the filter mechanism. The
** previous stream is also released if the GetBlobData call is issued again in
** same filter routine. This makes it possible to check multiple blob fields
** data in the same routine. However, only ONE may be open at any one time.
procedure CategoryCod(FilterRec: TFilterObject; var Allow: Boolean);
procedure CommonName(FilterRec: TFilterObject; var Allow: Boolean);
procedure DateFilter(FilterRec: TFilterObject; var Allow: Boolean);
procedure DescStartsWithV(FilterRec: TFilterObject; var Allow: Boolean);
procedure LengthFlt(FilterRec: TFilterObject; var Allow: Boolean);
procedure LengthRange(FilterRec: TFilterObject; var Allow: Boolean);
procedure NumRecords;
Private declarations
Set BEFORE call to start
procedure SpeciesNo(FilterRec: TFilterObject; var Allow: Boolean);
Button1 : TButton;
DataSource1 : TDataSource;
DBGrid1 : TDBGrid;
DBMemo1 : TDBMemo;
DBNavigator1 : TDBNavigator;
FilterCallback1 : TFilterCallback;
Label1 : TLabel;
Panel1 : TPanel;
RadioGroup1 : TRadioGroup;
Table1 : TTable;