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;

声明：本站所有文章，如无特殊说明或标注，均为本站原创发布。任何个人或组织，在未征得本站同意时，禁止复制、盗用、采集、发布本站内容到任何网站、书籍等各类媒体平台。如若本站内容侵犯了原著者的合法权益，可联系我们进行处理。

Delphi 写日志函数

发表回复取消回复

评论(2)

相关文章

发表回复 取消回复

评论(2)

发表回复取消回复