| Class TCleanForm (unit cleaner) |
TForm
| Constructors |
| Functions |
PROCEDURE CBtnClick(Sender: TObject);
PROCEDURE DelBtnClick(Sender: TObject);
PROCEDURE DirEditChange(Sender: TObject);
PROCEDURE FileFind1Terminated(Sender: TObject);
PROCEDURE FormCreate(Sender: TObject);
PROCEDURE FormDestroy(Sender: TObject);
PROCEDURE GetDirBtnClick(Sender: TObject);
PROCEDURE ListBox1Click(Sender: TObject);
PROCEDURE ListBox1DblClick(Sender: TObject);
PROCEDURE SButnClick(Sender: TObject);
PROCEDURE Clean_It;| 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;| 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