Delphi 很方便调用的Log日志方法

本文整理自网络，侵删。

 
procedure WriteLog(const Info: string);
var
  Stream: TFileStream;
  FileName: string;
  Msg: string;
  P: PChar;
begin
  FileName := ExtractFilePath(ParamStr(0)) + 'Log\' + FormatDateTime('YYYYMMDD',
    Now) + '_' +
    ExtractFileName(ChangeFileExt(ParamStr(0), '.Log'));
  try
    if FileExists(FileName) then
    begin
      Stream := TFileStream.Create(FileName, fmOpenReadWrite or
        fmShareDenyNone);
    end
    else
    begin
      Stream := TFileStream.Create(FileName, fmCreate);
    end;

    try
      Stream.Seek(0, soFromEnd);

      Msg := FormatDateTime('YYYY-MM-DD HH:NN:SS.ZZZ', Now) + '|';
      Msg := Msg + Info + Char($0D) + Char($0A);
      P := PChar(Msg);
      Stream.Write(P[0], Length(Msg));
    finally
      Stream.Free;
    end;
  except
  end;
end;
 

相关阅读 >>

Delphi 64位汇编编程

Delphi 新建文件夹函数

Delphi删除文件夹

Delphi 如何在twebbrowsers之间传递数据

学习使用Delphi for android 调用java类库

Delphi中clientdataset的用法小结

Delphi xe 编译开关-一套代码不同平台编译

汇编基础寄存器

Delphi xe中泛型数组的使用范例

Delphi 批量文件改名

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

转载请注明出处：木庄网络博客 » Delphi 很方便调用的Log日志方法