Функция IOResult Pascal-Паскаль
Описание
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.
Var F : File Of Byte;
Begin
{ Получаем имя файла из командной строки }
Assign(F, ParamStr(1));
{$I-}
Reset(F);
{$I+}
If IOResult=0 Then
WriteLn('Размер файла: ', FileSize(F), ' байт.'))
Else WriteLn('Файл не найден.');
End.