home *** CD-ROM | disk | FTP | other *** search
- { $Define Debug}
- {$Ifdef Debug}
- {$Else}
- {$d-}
- {$Endif}
-
- { (C) Matthias Eube 1995 ─────────────────────────────────}
- { Kann in nichtkommerziellen Programmen weiterverwendet }
- { werden, solange ich in der Dokumentation erwähnt werde }
- { und der gesamte Quelltext des Programmes veröffentlich }
- { wird. Es wäre nett mir zu schreiben. Adressen in der }
- { Dokumentation. Verwendung auf eigene Gefahr! }
- { Verbesserungen des Quelltextes Willkommen. }
- { Veränderungen bitte in der in der Dokumentation }
- { angebenen Art und Weise. }
- {─────────────────────────────────────────────────────────}
-
- UNIT ULog;
- {─────────────────────────────────────────────────────────}
- { Beschreibung Unit: }
- { Loggen einfach gemacht siehe Procedure Log }
- {─────────────────────────────────────────────────────────}
- INTERFACE {───────────────────────────────────────────────}
- {─────────────────────────────────────────────────────────}
- Uses
- dos,Utimestr;
-
- Const
- BLogCon :Boolean=TRUE; {Auf Bildschirm Loggen?}
- BLogFile:Boolean=TRUE; {In Datei Loggen?}
- ILogIOResult:Integer=0; {Letzer IO}
-
- var
- SLogFile:pathstr; {Name der Logdatei}
- SPrompt:STRING[80]; {Wird vor jedem Logeintrag geschrieben}
-
- PROCEDURE LOG(S:String);
- {─────────────────────────────────────────────────────────}
- { Beschreibung : }
- { Protokolliert den übergebenen String in der durch die }
- { globale Variable SLogfile angegeben Datei wenn }
- { die globale Variable BLogFile=True }
- { Zusätzlich wird wenn die globale Variable BLogCon=True }
- { ist der Text auf dem Bildschirm ausgegeben }
- {─────────────────────────────────────────────────────────}
-
- {─────────────────────────────────────────────────────────}
- IMPLEMENTATION {──────────────────────────────────────────}
- {─────────────────────────────────────────────────────────}
- Uses xphytool;
-
- PROCEDURE LOG(S:String);
- {─────────────────────────────────────────────────────────}
- { Beschreibung : }
- { Protokolliert den übergebenen String in der durch die }
- { globale Variable SLogfile angegeben Datei wenn }
- { die globale Variable BLogFile=True }
- { Zusätzlich wird wenn die globale Variable BLogCon=True }
- { ist der Text auf dem Bildschirm ausgegeben }
- {─────────────────────────────────────────────────────────}
-
- VAR
- F:TEXT;
- BEGIN {-Procedure-}
- IF BLogCon then Writeln(S);
- IF BLogFile then
- BEGIN
- {$I-}
- Assign(F, SLogFile);
- If (NOT exist(SLogfile)) THEN
- BEGIN
- Rewrite(F);
- Writeln(F,'; '+sprompt+'Log File');
- Close(F);
- END;
- Append(F);
- if s<>'' then Writeln(F,Date+' '+Time+' '+ S)
- else writeln(f,s);
- Close(F);
- ILogIOResult:=IOResult;
- {$I+}
- END;
- END; {-Procedure-}
- {─────────────────────────────────────────────────────────}
-
-
- {──────────Main UNIT──────────────────────────────────────}
- end. {────Main UNIT──────────────────────────────────────}
-