Функция IOResult()

Возвращает статус последней выполненной операции ввода/вывода.

Объявление:

Function IOResult : Integer;

Режим:

Windows, Real, Protected

Замечание:

Если ошибки не было, возвращается нуль.

Чтобы контролировать ошибки ввода/вывода с помощью функции IOResult, опция проверки ввода/вывода должен быть выключена ({$I-}). Если происходит ошибка ввода/вывода, и проверка ввода/вывода выключена, то все последующие операции ввода/вывода игнорируются, пока не будет сделано обращение к функции IOResult, при котором очищается внутренний флаг ошибки.

Пример:

{ Пример программы для функции IOResult }

Uses WinCrt;

Var F : File Of Byte;

Begin
 { Получаем имя файла из командной строки }
 Assign(F, ParamStr(1));
 {$I-}
 Reset(F);
 {$I+}
 If IOResult=0 Then WriteLn('Размер файла: ', FileSize(F), ' байт.'))
               Else WriteLn('Файл не найден.');
End.