Class TdbSearch (unit Dbsearch)

Inherits from

TComponent

Constructors


constructor Create(AOwner: TComponent);

Our methods


Functions

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);


Properties

property DataSource : TDataSource

These 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;



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 : TDataSource

These 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;