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 pchar和array [0..255] of char的区别

Delphi 木马配置器通用写法(末尾追加数据的方法)

Delphi 使用firedac的tfdscript组件执行文件中描述的sql语句

Delphi 调用wmi信息判断系统师傅安装杀毒软件

Delphi sql数据库存取图片(利用流)

Delphi应用程序 paramstr()带有参数

Delphi获取文件编码

Delphi winapi: windowfrompoint- 获取指定点所在窗口的句柄

Delphi调用sql分页存储过程实例

Delphi使用api实现模拟按键

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...