- Код: Выделить всё
{$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 нужно проверять сразу же после операции и никак иначе, а исключение можно обработать где угодно, имея, грубо говоря, один обработчик ошибок на все файловые операции в программе.
