|
Opens file for exporting. Returns true in case of success. |
|
file_name |
Name and path of the specified file |
type |
true - append mode / false - readonly mode |
|
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;
««