Delphi SaveLog 日志

本文整理自网络，侵删。

 
procedure SaveLog(const sMsg:string);
var
  sList:TStringList;
  fn:string;
begin
  sList := TStringList.Create;
  fn := ExtractFilePath(ParamStr(0))+'SysLog.txt';
  try
    if FileExists(fn) then
      sList.LoadFromFile(fn);
    if sList.Count>1000 then
      sList.Clear;
    sList.Add(FormatDateTime('yyyy-mm-dd hh:nn:ss',Now)+' '+sMsg);
    sList.SaveToFile(fn);
  finally
    sList.Free;
  end;
end;



procedure WriteLog(ErrStr:String); //写入日志文件
var
  LogFilename: String;
  LogFile: TextFile;
begin  
  LogFilename:=ExtractFilePath(ParamStr(0)) + 'LOG.LOG';
  AssignFile(LogFile, LogFilename);
  if FileExists(LogFilename) then Append(LogFile)
  else Rewrite(LogFile);
  Writeln(Logfile,DateTimeToStr(now)+': '+ErrStr);
  CloseFile(LogFile);
end;
 

相关阅读 >>

Delphi 在窗体上创建自己的光标并输入文字

Delphi获取计算机的工作组信息和获取工作组中的计算机名称

indy10下的tidhttp控件获取源码乱码的解决方法

pos、ansipos、fillchar在Delphi2010中unicode的问题

Delphi 创建文件夹并打开

Delphi过滤一段字符里面的html代码的函数

Delphi tmsweb core webhttprequest1提交json数据

Delphi case of

Delphi vcl tmemo加速字符串读取

Delphi 24位真彩色图形转化为ico文件

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

转载请注明出处：木庄网络博客 » Delphi SaveLog 日志