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;
 

相关阅读 >>

Delphi 图像文件加载到剪切板，再从剪切板绘制图像

Delphi ipnumberipv4

Delphi 错误no ftp list parsers have been registered

Delphi 的链式代码

Delphi xe2 新增 system.zip 单元, 可用一句话压缩整个文件夹了

Delphi tstringlist自定义排序

Delphi实现暴力瞬间关机

Delphi 让程序主窗口不响应“显示桌面”

Delphi跨平台的字符串代码标准

Delphi里实现文件格式关联应用程序的功能

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

转载请注明出处：木庄网络博客 » Delphi SaveLog 方便的记录日志