Class TFilterObject (unit Fltcback) |
Inherits from
TObject
Object which is passed to the users Filter callback, giving access to the
BDEs raw data for a record in a useable state.
constructor Create;
- *****************************************************************************
** TFilterObject Object functions/Methods/Procedures
******************************************************************************) (*
** Constructor for client callback object
destructor Destroy;
** Destructor for client callback object.
function FieldIsBlank(FieldName: openstring): boolean;
** Function to decide whether the passed fields data is blank
function GetBlobData(FieldName: openstring): TFilterBlobStream;
** Function to get Raw data for passed field name.
function GetFieldData(FieldName: openstring): TRawData;
** Function to get Raw data for passed field name.
function IsValidBlobField(FieldName: openstring): boolean;
** Function to decide whether passed field name exists in the table
function IsValidField(FieldName: openstring): boolean;
** Function to decide whether passed field name exists in the table
procedure LoadFields(Table: TTable);
Stream to return for blob data
** Loads internal list with all field names in passed table.
property PhysicalRecordNum : Longint
Loads all Field Names into list
FFieldList : TStringList;
Pointer to Table being filtered
FPhysRecNum : Longint;
Pointer to BDE record structure
FpRecBuf : pointer;
Pointer to RAW data handling object
FRaw : TRawData;
List of All Field names in Table
FRawTable : TTable;
FReturnStream : TFilterBlobStream;
Physical record number
constructor Create;
*****************************************************************************
** TFilterObject Object functions/Methods/Procedures
******************************************************************************) (*
** Constructor for client callback object
destructor Destroy;
** Destructor for client callback object. Release all associated objects
** resources.
function FieldIsBlank(FieldName: openstring): boolean;
** Function to decide whether the passed fields data is blank
function GetBlobData(FieldName: openstring): TFilterBlobStream;
** Function to get Raw data for passed field name.
function GetFieldData(FieldName: openstring): TRawData;
** Function to get Raw data for passed field name.
function IsValidBlobField(FieldName: openstring): boolean;
** Function to decide whether passed field name exists in the table
function IsValidField(FieldName: openstring): boolean;
** Function to decide whether passed field name exists in the table
procedure LoadFields(Table: TTable);
Stream to return for blob data
** Loads internal list with all field names in passed table. The list is in
** the same order as the fields are in the file definition, allowing the
** list item number plus one to be used in the DbiGetField function.
property PhysicalRecordNum : Longint
Loads all Field Names into list
FFieldList : TStringList;
Pointer to Table being filtered
FPhysRecNum : Longint;
Pointer to BDE record structure
FpRecBuf : pointer;
Pointer to RAW data handling object
FRaw : TRawData;
List of All Field names in Table
FRawTable : TTable;
FReturnStream : TFilterBlobStream;
Physical record number