Re: Except Or Finally?
Добавлено: 21.06.2011 04:51:11
В состоянии {$I+} при ошибке операций с файлами бросается исключение типа EInOutError. Если его не обработать, программа завершится. Вот пример, где исключение обрабатывается, программа печатает сообщение об ошибке и о том, что продолжает выполняться:
В состоянии {$I-} IoResult нужно проверять самостоятельно.
Разница в том, что IoResult нужно проверять сразу же после операции и никак иначе, а исключение можно обработать где угодно, имея, грубо говоря, один обработчик ошибок на все файловые операции в программе.
Код: Выделить всё
{$mode objfpc}
uses sysutils;
var f: textfile;
begin
assign(f,'c:\nonexistent');
try
reset(f);
except
writeln('exception class=',exceptobject.classname,' message=', Exception(exceptobject).message);
end;
writeln('Продолжаем что-то делать');
end.
В состоянии {$I-} IoResult нужно проверять самостоятельно.
Разница в том, что IoResult нужно проверять сразу же после операции и никак иначе, а исключение можно обработать где угодно, имея, грубо говоря, один обработчик ошибок на все файловые операции в программе.
