本文整理自网络,侵删。
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 使用firedac的tfdscript组件执行文件中描述的sql语句
Delphi winapi: windowfrompoint- 获取指定点所在窗口的句柄
更多相关阅读请进入《Delphi》频道 >>