本文整理自网络,侵删。
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;
procedure WriteLog(ErrStr:String); //写入日志文件var LogFilename: String; LogFile: TextFile;begin LogFilename:=ExtractFilePath(ParamStr(0)) + 'LOG.LOG'; AssignFile(LogFile, LogFilename); if FileExists(LogFilename) then Append(LogFile) else Rewrite(LogFile); Writeln(Logfile,DateTimeToStr(now)+': '+ErrStr); CloseFile(LogFile);end;
相关阅读 >>
delphDelphi chromium embedded 清除指定链接浏览器缓存、cookies
更多相关阅读请进入《Delphi》频道 >>