Class TFtw (unit Traverse)

Inherits from

Tcomponent

Constructors


constructor Create(AOwner: Tcomponent);

----------------------------------------------------------------------------


Functions

destructor Destroy;


function Execute: Boolean;

Needed for WIN32, harmless for WIN16 -dh-

procedure Walk_Tree(Start: string; Attr: Integer; {see FindFirst} Recursive: boolean; {walk into subtrees} DoIt: TOnProcess_File);


Properties

property Filter : string


property Recursive : Boolean


property StartPath : TFilename


property Attr : Integer

called for each hit

Events

event OnProcessFile : TOnProcess_File


Variables

FAttr : Integer;


FFilePattern : string;


FFilter : string;


FOnProcessFile : TOnProcess_File;


FRecursive : Boolean;


FStartPath : TFilename;



Constructors


constructor Create(AOwner: Tcomponent);

----------------------------------------------------------------------------


Functions


destructor Destroy;


function Execute: Boolean;

Needed for WIN32, harmless for WIN16 -dh-


procedure Walk_Tree(Start: string; Attr: Integer; {see FindFirst} Recursive: boolean; {walk into subtrees} DoIt: TOnProcess_File);


Properties


property Filter : string


property Recursive : Boolean


property StartPath : TFilename


property Attr : Integer

called for each hit


Events


event OnProcessFile : TOnProcess_File


Variables


FAttr : Integer;


FFilePattern : string;


FFilter : string;


FOnProcessFile : TOnProcess_File;


FRecursive : Boolean;


FStartPath : TFilename;