Class TFolderList (unit FileInfo) |
Inherits from
TStringList
constructor Create (const Parent: TFolderList; const Name: string);
- max full path spec length
methods for TFolderList
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
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
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
constructor Create (const Parent: TFolderList; const Name: string);
max full path spec length
methods for TFolderList
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
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
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