DIR SCANNING COMPONENTS

These components will scan a given dir and generate an event each time a new file or directory is found or added.

You can subclass TDaDirScan if you want other components to be filled.

This component will allow you to separate the content (in this case : file system) from the way it is represented (treeview, listview or other).

TSEARCHRECCLASS

TSearchRecClass = class
Time: Integer;
Size: Integer;
Attr: Integer;
Name: String;
end;

The data property is filled with a TSearchRecClass object

FUNCTION TYPES

TDAFileFoundEvent = procedure(Sender : TObject; FileName : STring; var CanAdd : boolean) of object;
TDAFileAddedEvent = procedure(Sender : TObject; FileName : STring) of object;
TDADirFoundEvent = procedure(Sender : TObject; DirName : String; var CanAdd : boolean) of object;
TDADirAddedEvent = procedure(Sender : TObject; DirName : String ) of object;
TDADirEndEvent = procedure(Sender : TObject; DirName : String; FilesFound: integer) of object;

TDADIRSCAN

Properties

Methods


Events

TDADIRSCANTREEVIEW = class(TDADIRSCAN)

The treenode data is filled with a string which contains the complete filename. You can get the other attributes using the function GetSRForFile

Properties

Methods

Events

TDADIRSCANLISTVIEW = class(TDADIRSCAN)

The listitem data is filled with a string which contains the complete filename. You can get the other attributes using the function GetSRForFile

TOnAddingSubItems = procedure (Sender : TObject; Item : TListItem; SRC : TSearchRecClass) of object;

Properties

Methods

Events


Copyright 2000 by Diego Amicabile