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

[priboltik]

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

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

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

[volvo]

принципе загвоздка в том что нужно в модуле файл закрывать.

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

если при контроль ошибок не выключать, а проверку на IOResult <>0 ставить, то в принципе работать будет???

Нет... Тогда сразу при возникновении ошибки программа прервется. {$I-} маскирует ошибку, чтобы ее можно было проанализировать...

[priboltik]

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

это понятно. спасибо..

Нет... Тогда сразу при возникновении ошибки программа прервется. {$I-} маскирует ошибку, чтобы ее можно было проанализировать...

тогда еще вот вопрос:

вот текст..

program h09809;
 uses crt;
var
f1:text;
str,name:string;
begin
clrscr;
repeat
     writeln('‚ўҐ¤ЁвҐ Ё¬п д ©«  б ббл«ЄЁ¬Ё: ');
     readln(name);
     {$I-}
     assign(f1,name);
     reset(f1);
    {$I+}
     if ioresult<>0 then
      begin
        clrscr;
        writeln('д ©« ­Ґ ­ ©¤Ґ­');
        end;
      
     until ioresult=0;
     read(f1,str);
    close(f1);
readln;
readln;
end.

здесь вроде должо все работать.. а ошибка все равно вылетает....

Сообщение отредактировано: priboltik - 4.03.2007 10:20