本文整理自网络,侵删。
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 messagebox 和 messagedlg用法
更多相关阅读请进入《Delphi》频道 >>