Table of Content
HAL Forum
function Boolean OpenExportFile (
string file_name,boolean type)
Description:
Opens file for exporting. Returns true in case of success.
Parameters:
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;
Related topics:
««