Class TdbSearch (unit Dbsearch) |
Inherits from
TComponent
constructor Create(AOwner: TComponent);
- Our methods
destructor Destroy;
function GetLocateInfo: boolean;
Called from "Locate" in this module just before calling DoLocate.
procedure Locate;
This method can be called from an application program.
procedure LocateNext;
This method can be called from an application program.
procedure DoLocate(LocateInfo: TLocateInfo);
end of "try.
function GetDataSource: TDataSource;
function GetMultiPattern: string;
function GetSinglePattern: Char;
procedure InitLocateInfo;
function SearchInMemo(Blob: TBlobField; Pattern: PChar; CaseSensitive,
ExactMatch: Boolean): Boolean;
End of the data and no match? reposition to previous position
procedure SetDataSource(ds: TDataSource);
procedure SetMultiPattern(MultiPattern: string);
procedure SetSearchFields(FieldNames: TStringList);
procedure SetSinglePattern(SinglePattern: Char);
property DataSource : TDataSource
These properties show in Object Inspector
property DefSearchField : string
property MultiCharPattern : string
property SearchFields : TStringList
property SingleCharPattern : Char
FDataSource : TDataSource;
FDefSearchField : String;
FHelpFile : String;
FLocateInfo : TLocateInfo;
These items beginning with F are local versions
of some of our properties
FSearchFields : TStringList;
constructor Create(AOwner: TComponent);
Our methods
destructor Destroy;
function GetLocateInfo: boolean;
Called from "Locate" in this module just before calling DoLocate.
If this returns FALSE, then user CANCELED the search
procedure Locate;
This method can be called from an application program.
procedure LocateNext;
This method can be called from an application program. } { The point in having this method is to skip the dialog
box in case the application program itself has a
"Find Next" button. Normally, the application program
won't have his own "Find Next" button - he'll just call the
Locate method to show the dialog box again (it has a
"Find Next" button).
procedure DoLocate(LocateInfo: TLocateInfo);
end of "try...finally"
function GetDataSource: TDataSource;
function GetMultiPattern: string;
function GetSinglePattern: Char;
procedure InitLocateInfo;
function SearchInMemo(Blob: TBlobField; Pattern: PChar; CaseSensitive,
ExactMatch: Boolean): Boolean;
End of the data and no match? reposition to previous position
procedure SetDataSource(ds: TDataSource);
procedure SetMultiPattern(MultiPattern: string);
procedure SetSearchFields(FieldNames: TStringList);
procedure SetSinglePattern(SinglePattern: Char);
property DataSource : TDataSource
These properties show in Object Inspector
property DefSearchField : string
property MultiCharPattern : string
property SearchFields : TStringList
property SingleCharPattern : Char
FDataSource : TDataSource;
FDefSearchField : String;
FHelpFile : String;
FLocateInfo : TLocateInfo;
These items beginning with F are local versions
of some of our properties
FSearchFields : TStringList;