home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
C!T ROM 2
/
ctrom_ii_b.zip
/
ctrom_ii_b
/
PROGRAM
/
PASCAL
/
LOG_01
/
LOGFILE.DOC
< prev
next >
Wrap
Text File
|
1988-07-28
|
1KB
|
46 lines
LSD - LogFile
=============
The log file is like Turbo's printer unit, except that it writes to a log file
instead of the printer.
The unit is simple enough to use:
1) Add LogFile in your uses statement
2) when ever you wanto, you may write to log like writeln ( log, 'a=',a:4 )
The unit takes care of opening and closing the log file. The file is always
called DEBUG.LOG, and is created in the current directory if it does not
exist, otherwise it is appended. If anything goes wrong in opening the file,
you get a warning text, and the log is redirected to NUL. To separate the
loggings of different runs the unit prints a header line with date and time
every time the log is opened.
Legal stuff: This unit is placed in ShareWare, so please feel free to use it
and give copies. If you find it useful, then a small sum of money will be
appreciated. If you need an invoice, I'll be more than happy to provide one.
│ ┌─ ─┐ Heikki Levanto +45 6 156270 Rydevaenget 35,2,th,DK-8210 │ ┌─ ─┐
└─ ─┘ ─┘ Levanto Software Development Aarhus, Denmark 2:505/20.3 └─ ─┘ ─┘
INTERFACE
Uses
Crt, { TURBO screen and sound }
Dos ; { TURBO Dos calls for date and time }
Var
Log : text ;
IMPLEMENTATION