Игнор Ошибок, Игнор Ошибок при исполнении программы Опции

[SkyBoy]

как сделать так, чтобы игнорировались ошибки и дос не вылетал??
вот например, если a:integer; то при попытке readln (a) он сразу вылетит нафиг. Как сигнорировать эту ошибку и возвратится к чтению переменной?

[Bokul]

Вот так, например:

var a:integer;
begin
     writeln('Enter an integer value');
     repeat
           {$I-}
                readln(a);
           {$I+}
     until IOResult=0;
     writeln('Thank you');
     readln;
end.

Сообщение отредактировано: Bokul - 1.07.2007 8:06