| Class TFtw (unit Traverse) |
Tcomponent
| Constructors |
constructor Create(AOwner: Tcomponent);| Functions |
destructor Destroy;
function Execute: Boolean;
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| 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 : Integercalled for each hit
| Events |
event OnProcessFile : TOnProcess_File| Variables |
FAttr : Integer;
FFilePattern : string;
FFilter : string;
FOnProcessFile : TOnProcess_File;
FRecursive : Boolean;
FStartPath : TFilename;