X-Git-Url: http://deadsoftware.ru/gitweb?p=d2df-sdl.git;a=blobdiff_plain;f=src%2Fengine%2Fe_log.pas;h=e82bfb41149a0533db9173023bafbfe3cce249d2;hp=d45f86efd10cb1d10e453a7d754ecb9d7a4f8e49;hb=7fe9b42bd8a5a8fdbc3b22d87f1a14cd438a9e11;hpb=5d49aa6a925e49d43993305b3e4071fd70286a90 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;