本文整理自网络,侵删。
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 新版 thttpclient组件同步下载文件方法
Delphi 32位程序 out of memory 内存不足时解决办法之一
更多相关阅读请进入《Delphi》频道 >>