История изменений

Исправление sunjob, 19.04.22 20:04 (текущая версия) :

если на этапе хватаем - происходит исключение, то отработает только except, а finally идет по боку, разве не так?

вот у меня выкус болтается под рукой (другой вариант)

try
except
  // If there was an error the reason can be found here
  on E: EInOutError do
  ShowMessage('File handling error occurred. Details: ' +  E.ClassName +  '/' +  E.Message);
finally
  CloseFile(tfOut);
end;

Исходная версия sunjob, 19.04.22 20:01:

вот у меня выкус болтается под рукой

try
except
  // If there was an error the reason can be found here
  on E: EInOutError do
  ShowMessage('File handling error occurred. Details: ' +  E.ClassName +  '/' +  E.Message);
finally
  CloseFile(tfOut);
end;