| Class TFindFile (unit FindFile) |
TComponent
| Constructors |
constructor Create(AOwner: TComponent);=================================================================================== ===================================================================================
| Functions |
destructor Destroy;
procedure Execute;
procedure SetFiles(Value: TStrings);
function FindSubDirectory(strDirs:TStringList; Directory:string):Boolean;
procedure SearchCurrentDirectory(Directory:string);
procedure SearchRecursive(Directory:string);| Properties |
property AfterExecute : TNotifyEvent
property Attributes : TAttrOptions
property BeforeExecute : TNotifyEvent
property Directory : string
property Files : TStrings
property Filter : string
property Recurse : boolean
property Abort : boolean
property TotalDir : longint
property TotalFile : longint
property TotalSpace : longint| Events |
event OnNewPath : TNewPathEvent| Variables |
FAbort : boolean;
FAfterExecute : TNotifyEvent;
FAttribs : TAttrOptions;
FBeforeExecute : TNotifyEvent;
FDirectory : string;
FFiles : TStrings;
FFilter : string;
FOnNewPath : TNewPathEvent;
FRecurse : boolean;
FTotalDir : longint;
FTotalFile : longint;
FTotalSpace : longint;| Constructors |
constructor Create(AOwner: TComponent);Public declarations
=================================================================================== ===================================================================================
| Functions |
destructor Destroy;
procedure Execute;
procedure SetFiles(Value: TStrings);Protected declarations
function FindSubDirectory(strDirs:TStringList; Directory:string):Boolean;
procedure SearchCurrentDirectory(Directory:string);
procedure SearchRecursive(Directory:string);| Properties |
property AfterExecute : TNotifyEvent
property Attributes : TAttrOptions
property BeforeExecute : TNotifyEvent
property Directory : string
property Files : TStrings
property Filter : string
property Recurse : booleanPublished declarations
property Abort : boolean
property TotalDir : longint
property TotalFile : longint
property TotalSpace : longint| Events |
event OnNewPath : TNewPathEvent| Variables |
FAbort : boolean;Private declarations
FAfterExecute : TNotifyEvent;
FAttribs : TAttrOptions;
FBeforeExecute : TNotifyEvent;
FDirectory : string;
FFiles : TStrings;
FFilter : string;
FOnNewPath : TNewPathEvent;
FRecurse : boolean;
FTotalDir : longint;
FTotalFile : longint;
FTotalSpace : longint;