Class TMyBackup (unit MyBackup)

Inherits from

TCustomCopyFile

Constructors


constructor Create( AOwner : TComponent );

Déclarations publiques


Functions

procedure Backup;


function CheckFirstDisk : Boolean;

Delete file

destructor Destroy;


function GetInfos( SL : TStringList ) : Boolean;

go to the end of file

procedure Restore;


function CheckDiskContent : Boolean;


procedure CheckDrive;


procedure CheckPath;


procedure NextDisk;


procedure ReadFile( const FileName : String );


procedure ReadFiles;


procedure SetFilesRestored( val : TStringList );


procedure SetFilesToBackup( val : TStringList );

Contains the list of the files restored.

procedure WriteFile( const FileName : String );

Otherwise, backup all the filtered file from the FilesPath directory

procedure WriteFiles;


procedure WriteInfos;

reopen previous file on new disk

Properties

property BackupCaption : String


property BackupName : String


property ConfirmDelete : Boolean


property DrivePath : String

Déclarations publiées

property FilesPath : String


property FilesRestored : TStringList


property FilesToBackup : TStringList


property Filter :

Properties herited and moved in the published section

property ID : String


property IdLabel : String


property InfosFileName : String


property Progress :


property RestoreCaption : String


property UserCompany : String


property UserLicence : String


property UserName : String


property Version : String


Events

event OnEachFile :


event OnFinishOperation :


event OnOperationProgress :


event OnStartOperation :


Variables

FBackupCaption : String;


FBackupName : String;


FConfirmDelete : Boolean;


FCurBackup : String;


FCurrentFile : String;


FDiskCount : Integer;


FDrive : Char;


FDrivePath : String;

Déclarations protégées

FFilesPath : String;


FFilesRestored : TStringList;

Contains the list of the files to be backed up.

FFilesToBackup : TStringList;


FID : String;


FIdLabel : String;


FInfosFileName : String;


FOneMoreDisk : Boolean;


FOperation : TOperation;


FRestoreCaption : String;


FUserCompany : String;


FUserLicence : String;


FUserName : String;


FVersion : String;



Constructors


constructor Create( AOwner : TComponent );

Déclarations publiques


Functions


procedure Backup;


function CheckFirstDisk : Boolean;

Delete file


destructor Destroy;


function GetInfos( SL : TStringList ) : Boolean;

go to the end of file


procedure Restore;


function CheckDiskContent : Boolean;


procedure CheckDrive;


procedure CheckPath;


procedure NextDisk;


procedure ReadFile( const FileName : String );


procedure ReadFiles;


procedure SetFilesRestored( val : TStringList );


procedure SetFilesToBackup( val : TStringList );

Contains the list of the files restored.


procedure WriteFile( const FileName : String );

Otherwise, backup all the filtered file from the FilesPath directory


procedure WriteFiles;


procedure WriteInfos;

reopen previous file on new disk


Properties


property BackupCaption : String


property BackupName : String


property ConfirmDelete : Boolean


property DrivePath : String

Déclarations publiées


property FilesPath : String


property FilesRestored : TStringList


property FilesToBackup : TStringList


property Filter :

Properties herited and moved in the published section


property ID : String


property IdLabel : String


property InfosFileName : String


property Progress :


property RestoreCaption : String


property UserCompany : String


property UserLicence : String


property UserName : String


property Version : String


Events


event OnEachFile :


event OnFinishOperation :


event OnOperationProgress :


event OnStartOperation :


Variables


FBackupCaption : String;


FBackupName : String;


FConfirmDelete : Boolean;


FCurBackup : String;


FCurrentFile : String;


FDiskCount : Integer;


FDrive : Char;


FDrivePath : String;

Déclarations protégées


FFilesPath : String;


FFilesRestored : TStringList;

Contains the list of the files to be backed up.


FFilesToBackup : TStringList;


FID : String;


FIdLabel : String;


FInfosFileName : String;


FOneMoreDisk : Boolean;


FOperation : TOperation;


FRestoreCaption : String;


FUserCompany : String;


FUserLicence : String;


FUserName : String;


FVersion : String;