Информационный сервер для программистов: Исходники со всего света. Паскальные исходники со всего света
  Powered by Поисковый сервер Яndex: Найдется ВСЁ!
На Главную Исходники Форум Информер Страны мира
   ЧАВО - Частые Вопросы и Ответы    >>    ioerror
   
 
 ERR. Как перехватить управление при ошибке в/в   Dmitry Mazin 01.11.1997

Об использовании IORESULT для предотвращения завершения программы при возникновении ошибки.


 
 

Как дела, Sergey ? Мои бортовые системы запеленговали, что в Вторник Октябрь 28 1997 01:22, Sergey Gavrilenko писал All: SG> Так вопрос в том: SG> как можно перехватить ошибку, обработать ее, а затем SG> _ВЕРHУТЬ УПРАВЛЕНИЕ НА МЕСТО СБОЯ_ ? SG> т.е. скажем затребовать у юзера диск обратно и мирно продолжить SG> сортировку. После считывания или записи ВСЕГДА проверяй как прошла операция! Для этого есть в паскале ключик {$I-} и {$I+} Пример Var IoRes : Integer; f : File of text; Procedure Error(IO:Integer); Begin Writeln('Произошла ошибка #',IO); Readln; End; BEGIN Assign(F,'c:\temp\example.txt'); Repeat {$I-} Reset(F); IoRes:=IOResult; {$I+} If IoRes<>0 then Error(IoRes); Until IoRes=0; {$I-} Write(F,'Hello world!'); IORes:=IOResult; {$I+} If IoRes<>0 then Error(IORes); END. За сим разрешите откланяться, с уважением, Dmitry Mazin. --- УТВЕРЖДАЮ. MSG-редактор капитан 2.5 ранга Голд Дедович фор ДОС UNREG * Origin: Программу циклом не испортишь (2:5085/32.50)