home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 10 Tools
/
10-Tools.zip
/
vp21beta.zip
/
LRTLSRC.RAR
/
PE2ELF
/
DBWRITE.PAS
next >
Wrap
Pascal/Delphi Source File
|
2000-08-15
|
359b
|
26 lines
unit dbwrite;
interface
const
verbose:boolean=false;
procedure DWriteLn(const zk:string);
procedure DWrite (const zk:string);
implementation
procedure DWriteLn(const zk:string);
begin
if verbose then
WriteLn(zk);
end;
procedure DWrite(const zk:string);
begin
if verbose then
Write(zk);
end;
end.