Class TFindFile (unit FindFile)

Inherits from

TComponent

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

Published 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;



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

Published 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;