| Class TdbSearch (unit Dbsearch) |
TComponent
| Constructors |
constructor Create(AOwner: TComponent);| Functions |
destructor Destroy;
function GetLocateInfo: boolean;
procedure Locate;
procedure LocateNext;
procedure DoLocate(LocateInfo: TLocateInfo);
function GetDataSource: TDataSource;
function GetMultiPattern: string;
function GetSinglePattern: Char;
procedure InitLocateInfo;
function SearchInMemo(Blob: TBlobField; Pattern: PChar; CaseSensitive,
ExactMatch: Boolean): Boolean;
procedure SetDataSource(ds: TDataSource);
procedure SetMultiPattern(MultiPattern: string);
procedure SetSearchFields(FieldNames: TStringList);
procedure SetSinglePattern(SinglePattern: Char);| Properties |
property DataSource : TDataSource
property DefSearchField : string
property MultiCharPattern : string
property SearchFields : TStringList
property SingleCharPattern : Char| Events |
| Variables |
FDataSource : TDataSource;
FDefSearchField : String;
FHelpFile : String;
FLocateInfo : TLocateInfo;
FSearchFields : TStringList;| Constructors |
constructor Create(AOwner: TComponent);Our methods
| Functions |
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);| Properties |
property DataSource : TDataSourceThese properties show in Object Inspector
property DefSearchField : string
property MultiCharPattern : string
property SearchFields : TStringList
property SingleCharPattern : Char| Events |
| Variables |
FDataSource : TDataSource;
FDefSearchField : String;
FHelpFile : String;
FLocateInfo : TLocateInfo;These items beginning with F are local versions of some of our properties
FSearchFields : TStringList;