Class TFileFind (unit FileFind)

Inherits from

TComponent

*******************************************************************} { TFileFind } {

Constructors


constructor Create(AOwner: TComponent);

Register} {*********************************************************************} { Composant TFileFind } {*********************************************************************} {*********************************************************************} { constructor TFileFind.


Functions

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.

Properties

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


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;



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


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;