Delphi. Функция IOResult: Integer;
Модуль: System
Описание
Функция возвращает статус ошибки последней выполненной операции ввода/вывода. Использование данной функции возможно только при отключенной проверке ошибок директивой компилятора {$I-}. При возникновении ошибки ввода/вывода, все последующие операции ввода/вывода будут игнорироваться до тех пор, пока не будет сделано обращение к функции IOResult. Вызов IOResult очищает внутренний флаг ошибки. Альтернативным способом обработки ошибок ввода/вывода является использование механизма обработки исключительных ситуаций, который включается директивой компилятора {$I+}.
Пример
var
Vf: file of Byte;
begin
AssignFile(Vf, 'myfile.zzz');
{$I-}
Reset(Vf);
if IOResult<>0 then
MessageDlg('Ошибка открытия файла', mtError, [mbOk], 0);
{$I+}
end;
