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 xe6取得android智能手机的电话号码等的终端信息

Delphi imagelist-图片（bmp）按名称而不按索引

Delphi带进度条复制文件函数

Delphi使用sqlite数据库时的中文路径问题

Delphi自有的md5函��

Delphi 获取本地网络连接

Delphi 对gzip解压

Delphi 新版 thttpclient组件同步下载文件方法

gdi tgpimage 提取 gif 动画

Delphi 32位程序 out of memory 内存不足时解决办法之一

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

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