delphi 输出日志文件

procedure WriteLog(sContent: string); //写入日志

var
  tFile: TextFile;
  filename: string;
  logDir: string;
begin
  logDir := 'log';
  filename := ExtractFilePath(Application.ExeName) + logDir + '\' + FormatDateTime('yyyyMMdd', Now) + '.txt';
  if not DirectoryExists(ExtractFilePath(Application.ExeName) + logDir) then
  begin
    MkDir(ExtractFilePath(Application.ExeName) + logDir);
  end;
  AssignFile(tFile, filename);
  if FileExists(filename) then
    Append(tFile)
  else
    Rewrite(tFile);
  Writeln(tFile, FormatDateTime('yyyy-MM-dd hh:nn:ss', Now) + ' ' + sContent);
  CloseFile(tFile);
end;

procedure writeWorkLog(sqlstr: string);
var filev: TextFile;
  ss: string;
begin
  sqlstr:=DateTimeToStr(Now)+' Log: '+sqlstr;
  ss:='D:\ErpRunLog.txt';
  if FileExists(ss) then
  begin
    AssignFile(filev, ss);
    append(filev);
    writeln(filev, sqlstr);
  end else begin
    AssignFile(filev, ss);
    ReWrite(filev);
    writeln(filev, sqlstr);
  end;
  CloseFile(filev);
end;

两种输出方式