Delphi 写日志函数

2020-02-27 2 条评论 131 次阅读 0 人点赞

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

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

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;
Anchep

Anchep

TyphonFinger

文章评论(2)

  • Anchep
    Anchep
    Google Chrome 80.0.3987.122 Google Chrome 80.0.3987.122 Windows 7 x64 Edition Windows 7 x64 Edition

    多了一个参数,可以不用管了

    2020-02-27
  • Anchep
    Anchep
    Google Chrome 80.0.3987.122 Google Chrome 80.0.3987.122 Windows 7 x64 Edition Windows 7 x64 Edition

    sysDir,大家可以删掉这个。不影响使用。

    2020-02-27
  • 你必须 登录 才能发表评论