Delphi 写日志函数

不多做解释,直接上函数:

已经修改了函数中的多余参数

procedure WriteLog(txt: string);
var
  TF: TextFile;
  LogFile: string;
begin
  if not directoryexists(extractfilepath(ParamStr(0)) + 'log/') then
    createdir(extractfilepath(ParamStr(0)) + 'log/');
  LogFile := extractfilepath(ParamStr(0)) + 'log/' + FormatDateTime('yyyymmdd', Now) + '.log';
  AssignFile(TF, LogFile);
  if FileExists(LogFile) then
    append(TF)
  else
    rewrite(TF);
  writeln(TF, DateTimeToStr(Now) + ' : ' + txt);
  closefile(TF);
end;

2人评论了“Delphi 写日志函数”

发表评论