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 fastreport快速安装教程

Delphi在postgresql中读写二进制数据

Delphi中实现密码框“大写锁定打开”的提示

Delphi 实现程序开机自动启动

Delphi 网上获取北京时间xmlhttprequest如何访问需要安全验证的网站

Delphi取得当前目录的上一级目录

Delphi 字母大小写转换

Delphi xe6 switch元件�繁�w���}

Delphi tstringlist删除重复项

Delphi 新增功能之: ioutils 单元(7): tfile 结构的功能

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

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