| Class TFileFind (unit FileFind) |
TComponent
*******************************************************************} { TFileFind } {
| Constructors |
constructor Create(AOwner: TComponent);| Functions |
procedure Execute;
procedure ThreadExecute;
function CheckDir(ADir: String): String;
destructor Destroy;
procedure FindThreadDone(Sender: TObject);
function GetFilePattern: String;
function GetStartDir: String;
procedure SetDirType(NewDirType: TFileType);
procedure SetFilePattern(AFilePattern: String);
procedure SetFilesFound(AFilesFound: TStringList);
procedure SetFileType(NewFileType: TFileType);
procedure SetStartDir(AStartDir: String);| Properties |
property FilePattern : String
property FileType : TFileType
property MatchCaseSensitive : Boolean
property MatchEnabled : Boolean
property MatchString : String
property Recursive : Boolean
property StartDir : String
property ThreadPriority : TThreadPriority
property DirType : TFileType
property FilesFound : TStringList| Events |
event OnTerminated : TNotifyEvent| Variables |
FConvert : TBrkApart;
FDirType : TFileType;
FDirTypeWord : Word;
FFilePattern : TStringList;
FFilesFound : TStringList;
FFileType : TFileType;
FFileTypeWord : Word;
FMatch : TMatch;
FMatchCaseSensitive : Boolean;
FMatchEnabled : Boolean;
FMatchString : String;
FOnTerminated : TNotifyEvent;
FRecursive : Boolean;
FStartDir : TStringList;
FThreadPriority : TThreadPriority;| Constructors |
constructor Create(AOwner: TComponent);Register} {*********************************************************************} { Composant TFileFind } {*********************************************************************} {*********************************************************************} { constructor TFileFind.Create } {
| Functions |
procedure Execute;TFileFind.FindThreadDone} {*********************************************************************} { procedure TFileFind.Execute } {
procedure ThreadExecute;TFileFind.Execute} {*********************************************************************} { procedure TFileFind.ThreadExecute } {
function CheckDir(ADir: String): String;TFileFind.SetStartDir} {*********************************************************************} { function TFileFind.CheckDir } {
destructor Destroy;TFileFind.Create} {*********************************************************************} { destructor TFileFind.Destroy } {
procedure FindThreadDone(Sender: TObject);TFileFind.CheckDir} {*********************************************************************} { procedure TFileFind.FindThreadDone } {
function GetFilePattern: String;*******************************************************************} { function TFileFind.GetFilePattern } {
function GetStartDir: String;TFileFind.SetFilesFound} {*********************************************************************} { function TFileFind.GetStartDir } {
procedure SetDirType(NewDirType: TFileType);*******************************************************************} { procedure TFileFind.SetDirType } {
procedure SetFilePattern(AFilePattern: String);TFileFind.GetFilePattern} {*********************************************************************} { procedure TFileFind.SetFilePattern } {
procedure SetFilesFound(AFilesFound: TStringList);TFileFind.SetFilePattern} {*********************************************************************} { procedure TFileFind.SetFilesFound } {
procedure SetFileType(NewFileType: TFileType);TFileFind.Destroy} {*********************************************************************} { procedure TFileFind.SetFileType } {
procedure SetStartDir(AStartDir: String);TFileFind.GetStartDir} {*********************************************************************} { procedure TFileFind.SetStartDir } {
| Properties |
property FilePattern : StringDéclarations published
property FileType : TFileType
property MatchCaseSensitive : Boolean
property MatchEnabled : Boolean
property MatchString : String
property Recursive : Boolean
property StartDir : String
property ThreadPriority : TThreadPriority
property DirType : TFileTypeDéclarations public
property FilesFound : TStringList| Events |
event OnTerminated : TNotifyEvent| Variables |
FConvert : TBrkApart;
FDirType : TFileType;Déclarations private
FDirTypeWord : Word;
FFilePattern : TStringList;
FFilesFound : TStringList;
FFileType : TFileType;
FFileTypeWord : Word;
FMatch : TMatch;
FMatchCaseSensitive : Boolean;
FMatchEnabled : Boolean;
FMatchString : String;
FOnTerminated : TNotifyEvent;
FRecursive : Boolean;
FStartDir : TStringList;
FThreadPriority : TThreadPriority;