Class TFindThread (unit FileFind)

Inherits from

TThread

*******************************************************************} { TFindThread } {

Constructors


constructor Create(AStartDir: TStringList; AFilePattern: TStringList; AFilesFound: TStringList; ARecursive: Boolean; AMatch: TMatch; AMatchCaseSensitive: Boolean;AMatchEnabled: Boolean; AMatchString: String;AFileTypeWord: Word;ADirTypeWord: Word);

TFileFind.


Functions

procedure Execute;

TFindThread.

procedure SearchTree(AFilePattern: String);

TFindThread.

Properties

Events

Variables

FDirTypeWord : Word;


FFilePattern : TStringList;


FFilesFound : TStringList;


FFileTypeWord : Word;


FMatch : TMatch;


FMatchCaseSensitive : Boolean;


FMatchEnabled : Boolean;


FMatchString : String;


FRecursive : Boolean;


FStartDir : TStringList;



Constructors


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 } {


Functions


procedure Execute;

TFindThread.Create} {*********************************************************************} { procedure TFindThread.Execute } {


procedure SearchTree(AFilePattern: String);

TFindThread.Execute} {*********************************************************************} { procedure TFindThread.SearchTree } {


Properties


Events


Variables


FDirTypeWord : Word;


FFilePattern : TStringList;


FFilesFound : TStringList;


FFileTypeWord : Word;


FMatch : TMatch;


FMatchCaseSensitive : Boolean;


FMatchEnabled : Boolean;


FMatchString : String;


FRecursive : Boolean;


FStartDir : TStringList;