From: Ketmar Dark Date: Fri, 15 Apr 2016 11:57:23 +0000 (+0300) Subject: ignore more log writing/creating errors X-Git-Url: http://deadsoftware.ru/gitweb?a=commitdiff_plain;h=7fe9b42bd8a5a8fdbc3b22d87f1a14cd438a9e11;p=d2df-sdl.git ignore more log writing/creating errors --- diff --git a/src/engine/e_log.pas b/src/engine/e_log.pas index d45f86e..e82bfb4 100644 --- a/src/engine/e_log.pas +++ b/src/engine/e_log.pas @@ -68,8 +68,12 @@ procedure e_InitLog(fFileName: String; fWriteMode: TWriteMode); begin FileName := fFileName; if fWriteMode = WM_NEWFILE then - if FileExists(FileName) then - DeleteFile(FileName); + begin + try + if FileExists(FileName) then DeleteFile(FileName); + except // sorry + end; + end; FirstRecord := True; end;