Class TFileFind (unit FileFind) |
Inherits from
TComponent
*******************************************************************} { TFileFind } {
constructor Create(AOwner: TComponent);
- Register} {*********************************************************************} { Composant TFileFind } {*********************************************************************} {*********************************************************************} { constructor TFileFind.
procedure Execute;
TFileFind.
procedure ThreadExecute;
TFileFind.
function CheckDir(ADir: String): String;
TFileFind.
destructor Destroy;
TFileFind.
procedure FindThreadDone(Sender: TObject);
TFileFind.
function GetFilePattern: String;
*******************************************************************} { function TFileFind.
function GetStartDir: String;
TFileFind.
procedure SetDirType(NewDirType: TFileType);
*******************************************************************} { procedure TFileFind.
procedure SetFilePattern(AFilePattern: String);
TFileFind.
procedure SetFilesFound(AFilesFound: TStringList);
TFileFind.
procedure SetFileType(NewFileType: TFileType);
TFileFind.
procedure SetStartDir(AStartDir: String);
TFileFind.
property FilePattern : String
Dé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 : TFileType
Déclarations public
property FilesFound : TStringList
event OnTerminated : TNotifyEvent
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;
constructor Create(AOwner: TComponent);
Register} {*********************************************************************} { Composant TFileFind } {*********************************************************************} {*********************************************************************} { constructor TFileFind.Create } {
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 } {
property FilePattern : String
Dé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 : TFileType
Déclarations public
property FilesFound : TStringList
event OnTerminated : TNotifyEvent
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;