| Class TForm1 (unit Fltexm1) |
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
| Constructors |
| Functions |
procedure Button1Click(Sender: TObject);
procedure DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);
procedure FormCreate(Sender: TObject);
procedure BlobFilter(FilterRec: TFilterObject; var Allow: Boolean);
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;Set BEFORE call to start
procedure SpeciesNo(FilterRec: TFilterObject; var Allow: Boolean);| Properties |
| Events |
| Variables |
Button1 : TButton;
DataSource1 : TDataSource;
DBGrid1 : TDBGrid;
DBMemo1 : TDBMemo;
DBNavigator1 : TDBNavigator;
FilterCallback1 : TFilterCallback;
Label1 : TLabel;
Panel1 : TPanel;
RadioGroup1 : TRadioGroup;
Table1 : TTable;| Constructors |
| Functions |
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);| Properties |
| Events |
| Variables |
Button1 : TButton;
DataSource1 : TDataSource;
DBGrid1 : TDBGrid;
DBMemo1 : TDBMemo;
DBNavigator1 : TDBNavigator;
FilterCallback1 : TFilterCallback;
Label1 : TLabel;
Panel1 : TPanel;
RadioGroup1 : TRadioGroup;
Table1 : TTable;