Mail

В этот день много лет назад...
26 ноября. В 1941 году (83 года назад) - Президент США Франклин Рузвельт утвердил ещё один государственный праздник - День Благодарения. Он отмечается в каждый четвертый четверг ноября.

Turbo Pascal Documentation

Функция IOResult

     Функция: Возвращает целое значение, представляющее  со-
бой состояние последней выполненой операцией ввода-вывода.
     Описание: IOResult
     Тип результата: Слово (word).
     Примечания: Чтобы перехватить ошибки ввода-вывода,  ис-
пользуя  функцию IORеsult, проверка ввода-вывода должна быть
выключена (директива компилятора {I-}). Если проверка  вво-
да-вывода  выключена  и  происходит ошибка ввода-вывода, то,
пока выполняется обращение к функции IORеsult, все последую-
щие  операции ввода-вывода игнорируются. Обращение в функции
IORеsult сбрасывает ее внутренний флаг ошибки.
     Перечень возвращаемых кодов ошибок приведен в  Приложе-
нии 1 ("Сообщения об ошибках и коды ошибок"). Значение 0 от-
ражает успешное выполнение операции ввода-вывода.
     Отличия: В версии 3.0 Турбо-Паскаля коды некоторых оши-
бок были другими.
     Пример:

var
   f : file of byte;
begin
   { получить командную строку с именем файла }
   Assign(f, ParamStr(1));
   {I-}
   Reset(f);
   {I+}
   if IOResult = 0 then
       Writeln('Размер файла в байтах :',FileSize(f));
   else
       Writeln('Файл не найден');
  end.