| ( |
|
|
|||
| Closes file when all operations (reading/writing) with this file are finished | |||
procedure LogQMessage(string tstr)
BEGIN
string 255 tmpstr;
if (OpenExportFile("nt7000errors.txt",true)) then begin
tmpstr = CurrentDate;
ExportPadString(tmpstr,len(tmpstr)+2," ",false);
tmpstr = CurrentTime;
ExportPadString(tmpstr,len(tmpstr)+2," ",false);
ExportPadString(tstr,len(tstr)," ",false);
ExportPadString(chr(13) & chr(10),2," ",false);
CloseFile;
end;
RETURN;
END;
 |
|
| Related topics: | |