Class TForm1 (unit test)

Inherits from

TForm

Constructors



Functions

procedure BtnScanClick(Sender: TObject);


procedure DiskSearch1DirFound(Sender: TObject; Directory: String);


procedure DiskSearch1FileFound(Sender: TObject; FileName: String);


Properties

Events

Variables

BtnScan : TButton;


DiskSearch1 : TDiskSearch;


LabelDir : TLabel;


LabelFile : TLabel;


StatusBarProgress : TStatusBar;


DirectoryCount : Integer;


FileCount : Integer;


StartTime : TDateTime;



Constructors


Functions


procedure BtnScanClick(Sender: TObject);


procedure DiskSearch1DirFound(Sender: TObject; Directory: String);


procedure DiskSearch1FileFound(Sender: TObject; FileName: String);


Properties


Events


Variables


BtnScan : TButton;


DiskSearch1 : TDiskSearch;


LabelDir : TLabel;


LabelFile : TLabel;


StatusBarProgress : TStatusBar;


DirectoryCount : Integer;


FileCount : Integer;


StartTime : TDateTime;