Class TFindThread (unit FileFind) |
Inherits from
TThread
*******************************************************************} { TFindThread } {
constructor Create(AStartDir: TStringList; AFilePattern: TStringList;
AFilesFound: TStringList; ARecursive: Boolean; AMatch: TMatch;
AMatchCaseSensitive: Boolean;AMatchEnabled: Boolean;
AMatchString: String;AFileTypeWord: Word;ADirTypeWord: Word);
- TFileFind.
procedure Execute;
TFindThread.
procedure SearchTree(AFilePattern: String);
TFindThread.
FDirTypeWord : Word;
FFilePattern : TStringList;
FFilesFound : TStringList;
FFileTypeWord : Word;
FMatch : TMatch;
FMatchCaseSensitive : Boolean;
FMatchEnabled : Boolean;
FMatchString : String;
FRecursive : Boolean;
FStartDir : TStringList;
constructor Create(AStartDir: TStringList; AFilePattern: TStringList;
AFilesFound: TStringList; ARecursive: Boolean; AMatch: TMatch;
AMatchCaseSensitive: Boolean;AMatchEnabled: Boolean;
AMatchString: String;AFileTypeWord: Word;ADirTypeWord: Word);
TFileFind.ThreadExecute} {*********************************************************************} { Objet TFindThread } {*********************************************************************} {*********************************************************************} { constructor TFindThread.Create } {
procedure Execute;
TFindThread.Create} {*********************************************************************} { procedure TFindThread.Execute } {
procedure SearchTree(AFilePattern: String);
TFindThread.Execute} {*********************************************************************} { procedure TFindThread.SearchTree } {
FDirTypeWord : Word;
FFilePattern : TStringList;
FFilesFound : TStringList;
FFileTypeWord : Word;
FMatch : TMatch;
FMatchCaseSensitive : Boolean;
FMatchEnabled : Boolean;
FMatchString : String;
FRecursive : Boolean;
FStartDir : TStringList;