delphi 简单的日志记录

本文整理自网络，侵删。

 
procedure SaveSoldierLog(const sMessage:string);
var
  fn:string;
  sList:TStrings;
begin
  fn := ExtractFilePath(ParamStr(0))+'soft.Log';
  sList := TStringList.Create;
  try
    if FileExists(fn) then
      sList.LoadFromFile(fn);
    if sList.Count>1000 then
      sList.Clear;
    sList.Add(FormatDateTime('yyy-mm-dd hh:nn:ss',Now)+':'+sMessage);
    sList.SaveToFile(fn);
  finally
    sList.Free;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin

SaveSoldierLog('日志内容');

end;
 

相关阅读 >>

Delphi datasnap(midas)三层架构中，常用事件及其触发顺序

Delphi 运行clsid文件

iniocp（小旋风服务套件）

Delphi中indy10 的idtcpserver断开客户端连接报错问题的解决办法

Delphi tdirectory.tfilterpredicate

Delphi enumwindows回调函数获取qq2009窗体句柄

Delphi xe中使用tchart绘制平滑曲线

Delphi 调用系统右键菜单

[Delphi] 计算目录大小的函数，获得目录文件列表，计算文件的大小

Delphi 程序启动后隐藏窗体和任务栏

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

转载请注明出处：木庄网络博客 » delphi 简单的日志记录