Delphi 写Log的代码(按日期)

本文整理自网络，侵删。

 

Uses Sysutils, FileCtrl{, System};
procedure WriteRunlog(sLogStr: string; sPath:string=''; sFileName: string='');
var
  F: TextFile;
  sNow : string;
begin
  //路径及文件名处理
  sNow := FormatDateTime('yyyy.mm.dd HH:NN:ss ', Now);
  if Trim(sPath) = '' then
    sPath := ExtractFileDir(ParamStr(0)) + '\Log\';
  if not DirectoryExists(sPath) then
    MkDir(sPath);
  if Trim(sFileName) = '' then
    sFileName := sPath + 'RunLog'+ FormatDateTime('yyyymmdd', Date)+ '.txt'
  else
    sFileName := sPath + sFileName;

  //开始写文件
  AssignFile(F, sFileName);
  try
    if FileExists(sFileName) then
      Append(F)
    else
      Rewrite(F);
    Writeln(F, sNow+ sLogStr);
  finally
    CloseFile(F);
  end;
end;

 

相关阅读 >>

Delphi提取网页中的图片

Delphi 指针入门知识

Delphi messagebox 使用

Delphi http 常见异常状态及Delphi idhttp 控件处理方式

Delphi连接mysql出现乱码

Delphi写的播放器核心代码，播放mp3无压力

Delphi 从indy9升级到indy10时idtcpserver的变化

Delphi 的字符串在 firemonkey 模式下

Delphi发送邮件源代码

Delphi 通用压缩单元

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi 写Log的代码(按日期)