Функция 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;
|