Проблема с проверкой в модуле... Опции

[priboltik]

доброго времени суток!
Хотелось бы узнать, почему у меня проверка, котторая стоит в модуле не работает в основной программе..
в частности проверка на наличие файла на диске..

модуль:  MIKHAL.PAS ( 1.23 килобайт ) Кол-во скачиваний: 325

прога:  PROGRAM4.PAS ( 2.97 килобайт ) Кол-во скачиваний: 310

[volvo]

Ты не учитываешь одну очень незначительную деталь:

I/O-checking must be off--{$I-}--to trap I/O errors using IOResult. If an I/O error occurs and I/O-checking is off, all subsequent I/O operations are ignored until a call is made to IOResult. A call to IOResult clears the internal error flag.

То есть здесь:

until ioresult=0; { <--- }

IOResult уже как раз = 0 (ты уже обращался один раз к IOResult, и его значение после обращения было очищено - сброшено в 0), и ты пытаешься читать из файла, которого нет... Решение:

repeat

  writeln('file name: '); readln(name);
  {$I-}
    assign(f1,name); reset(f1);
  {$I+}
  IOR := ioresult;
  if ior<>0 then begin
    clrscr; writeln('file not found');
  end;
  writeln;

until ior=0;

[priboltik]

Все понятно.. спасибо