Class TCleanForm (unit cleaner)

Inherits from

TForm

Constructors



Functions

PROCEDURE CBtnClick(Sender: TObject);

****************************************************************************} {* App beenden *} {******************************************************************************} //CancelBtn Clicked

PROCEDURE DelBtnClick(Sender: TObject);

****************************************************************************} {* Dateien löschen *} {******************************************************************************} //DELETE Files IN List

PROCEDURE DirEditChange(Sender: TObject);

****************************************************************************} {* Wechseln des Suchverzeichnisses *} {******************************************************************************} //Change Working Dir

PROCEDURE FileFind1Terminated(Sender: TObject);

****************************************************************************} {* Dateisuche abgeschlossen,Ergebniss auswerten *} {******************************************************************************} //FILE search done.

PROCEDURE FormCreate(Sender: TObject);

Clean_It {******************************************************************************} {* Formerstellung *} {******************************************************************************} Create OF the MainForm

PROCEDURE FormDestroy(Sender: TObject);

****************************************************************************} {* Form schließen,Reg schreiben *} {******************************************************************************} //WRITE reg Entrys,CLOSE Form

PROCEDURE GetDirBtnClick(Sender: TObject);

****************************************************************************} {* Verzeichniss wählen *} {******************************************************************************} //Get Working-Dir

PROCEDURE ListBox1Click(Sender: TObject);

****************************************************************************} {* Auswerten der Dateiatt nach klick *} {******************************************************************************} //ListBox Entry Clicked.

PROCEDURE ListBox1DblClick(Sender: TObject);

****************************************************************************} {* Doppelklick in die Listbox,Eintrag entfernen *} {******************************************************************************} //Remove Entry after Double-Click

PROCEDURE SButnClick(Sender: TObject);

****************************************************************************} {* Suchen der Dateien *} {******************************************************************************} //Search Files.

PROCEDURE Clean_It;

****************************************************************************} {* Weiterverarbeitung der Fileliste *} {******************************************************************************} //Processes the Filelist

Properties

Events

Variables

CBtn : TButton;


Dcus : TCheckBox;


DelBtn : TButton;


DirEdit : TEdit;


dsk : TCheckBox;


Exes : TCheckBox;


FileFind1 : TFileFind;


GetDirBtn : TSpeedButton;


GroupBox1 : TGroupBox;


LABEL1 : TLabel;


LABEL2 : TLabel;


ListBox1 : TListBox;


Panel1 : TPanel;


SButn : TButton;


StatusBar : TStatusBar;


SubDirs : TCheckBox;


MyReg : TRegIniFile;


StrHolder : TStrings;

Private-Deklarationen


Constructors


Functions


PROCEDURE CBtnClick(Sender: TObject);

****************************************************************************} {* App beenden *} {******************************************************************************} //CancelBtn Clicked


PROCEDURE DelBtnClick(Sender: TObject);

****************************************************************************} {* Dateien löschen *} {******************************************************************************} //DELETE Files IN List


PROCEDURE DirEditChange(Sender: TObject);

****************************************************************************} {* Wechseln des Suchverzeichnisses *} {******************************************************************************} //Change Working Dir


PROCEDURE FileFind1Terminated(Sender: TObject);

****************************************************************************} {* Dateisuche abgeschlossen,Ergebniss auswerten *} {******************************************************************************} //FILE search done...


PROCEDURE FormCreate(Sender: TObject);

Clean_It {******************************************************************************} {* Formerstellung *} {******************************************************************************} Create OF the MainForm


PROCEDURE FormDestroy(Sender: TObject);

****************************************************************************} {* Form schließen,Reg schreiben *} {******************************************************************************} //WRITE reg Entrys,CLOSE Form


PROCEDURE GetDirBtnClick(Sender: TObject);

****************************************************************************} {* Verzeichniss wählen *} {******************************************************************************} //Get Working-Dir


PROCEDURE ListBox1Click(Sender: TObject);

****************************************************************************} {* Auswerten der Dateiatt nach klick *} {******************************************************************************} //ListBox Entry Clicked...


PROCEDURE ListBox1DblClick(Sender: TObject);

****************************************************************************} {* Doppelklick in die Listbox,Eintrag entfernen *} {******************************************************************************} //Remove Entry after Double-Click


PROCEDURE SButnClick(Sender: TObject);

****************************************************************************} {* Suchen der Dateien *} {******************************************************************************} //Search Files...


PROCEDURE Clean_It;

****************************************************************************} {* Weiterverarbeitung der Fileliste *} {******************************************************************************} //Processes the Filelist


Properties


Events


Variables


CBtn : TButton;


Dcus : TCheckBox;


DelBtn : TButton;


DirEdit : TEdit;


dsk : TCheckBox;


Exes : TCheckBox;


FileFind1 : TFileFind;


GetDirBtn : TSpeedButton;


GroupBox1 : TGroupBox;


LABEL1 : TLabel;


LABEL2 : TLabel;


ListBox1 : TListBox;


Panel1 : TPanel;


SButn : TButton;


StatusBar : TStatusBar;


SubDirs : TCheckBox;


MyReg : TRegIniFile;


StrHolder : TStrings;

Private-Deklarationen