Class TFolderList (unit FileInfo)

Inherits from

TStringList

Constructors


constructor Create (const Parent: TFolderList; const Name: string);

max full path spec length

methods for TFolderList



Functions

procedure AddFile (const Name: string; nominal_size: double; true_size: double);

after adding the NT compression code, needed to add SysUtils to the line below!

procedure scan (var stop_requested: boolean; const cluster_size: integer; const show_compressed: boolean; Callback: TScanCallback);


procedure SetFolderName (const Name: string);

as standard string list, but allow duplicates, stores name and back-link

Properties

property FolderName : string


property MaxPathLength : integer


property MaxPathString : string


property ParentFolderList : TFolderList


property TotalAllocated : double


property TotalBytes : double


property TotalFiles : integer


property TotalFolders : integer


property TotalSlack : double


Events

Variables

Ffolder_name : string;

count of folders here and below

Fmax_path_length : integer;


Fmax_path_string : string;

pointer to previous folder, or nil

Fparent_folder : TFolderList;

full path specification

Ftotal_allocated : double;

count of bytes here and below

Ftotal_bytes : double;


Ftotal_files : integer;

count of slack bytes

Ftotal_folders : integer;

count of files here and below

Ftotal_slack : double;

count of allocated bytes


Constructors


constructor Create (const Parent: TFolderList; const Name: string);

max full path spec length

methods for TFolderList


Functions


procedure AddFile (const Name: string; nominal_size: double; true_size: double);

after adding the NT compression code, needed to add SysUtils to the line below!


procedure scan (var stop_requested: boolean; const cluster_size: integer; const show_compressed: boolean; Callback: TScanCallback);


procedure SetFolderName (const Name: string);

as standard string list, but allow duplicates, stores name and back-link


Properties


property FolderName : string


property MaxPathLength : integer


property MaxPathString : string


property ParentFolderList : TFolderList


property TotalAllocated : double


property TotalBytes : double


property TotalFiles : integer


property TotalFolders : integer


property TotalSlack : double


Events


Variables


Ffolder_name : string;

count of folders here and below


Fmax_path_length : integer;


Fmax_path_string : string;

pointer to previous folder, or nil


Fparent_folder : TFolderList;

full path specification


Ftotal_allocated : double;

count of bytes here and below


Ftotal_bytes : double;


Ftotal_files : integer;

count of slack bytes


Ftotal_folders : integer;

count of files here and below


Ftotal_slack : double;

count of allocated bytes