Unit cleaner

****************************************************************************} {* Delphi Cleanup *} {******************************************************************************} {*Erstellt/Geändert am: 01.08.97 um 19:32:53 *} {* *} {*Projekt: Extracted from TinyTools 1.2 *} {* *} {*Erstellt von: R.Dold *} {* *} {*History/Bemerkungen: Headers by TinyTools Comment-Expert! *} {* Source Formating by TinyTools Formater *} {* *} {

Classes

TCleanForm -

Functions

FileShredder - ****************************************************************************} {* Löschen des Files *} {******************************************************************************} //My Personal Thrashcan ;
FILESIZE - ****************************************************************************} {* Ermitteln der Filegrösse von FileName *} {******************************************************************************} //Gets the FILESIZE OF FileName

Types

Constants

Variables

CleanForm
Sizes


Functions


PROCEDURE FileShredder(CONST Filename: STRING);

****************************************************************************} {* Löschen des Files *} {******************************************************************************} //My Personal Thrashcan ;

FUNCTION FILESIZE(CONST FileName: STRING): LONGINT;

****************************************************************************} {* Ermitteln der Filegrösse von FileName *} {******************************************************************************} //Gets the FILESIZE OF FileName

Types


Constants


Variables

CleanForm : TCleanForm

Sizes : LONGINT