Взятие обработки ошибок в свои руки (Паскаль).

[igor_564]

Возможно ли обработка ошибок времени выполнения с помощью каких либо операторов? Хочу вот сделать чтобы программа адекватно реагировала на ошибки, а не вылетала, к примеру когда пользователя отчётливо просят ввести числовое значение, а он шлёпает буквы .
Нашёл вот в модуле Dos переменную DosError возвращающюю код ошибки Dos, но как пользоваться ей ума не приложу. Может как-то так ?

If DosError=1 Then WriteLn(' Файл не найден');

Но тупой вставкой такой записи меду другими операторами не обойдёшься! Или Вот ещё функция DosExitCode, "возвращающая код завершения выполняемого процесса". Все эти вещи нашёл я в учебнике, но как ими пользоваться там не написано.
Или может ошибки нельзя обрабатывать, а возможно только предотвращать?
Обьясните, пожалуйста, эти вещи на языке начинающего

[eoln]

Если вы запускаете из своей программы какую-нибудь другую по средством процедуры Exec('программа','параметры'), то затем можно посмотреть правильно ли отработала запущенная вами программа или вылетела (Если в переменной DosExitCode ноль, то всё произошло по плану, если нет, то была ошибка). Кстати, коды ошибок в разных операционных системах могут отличаться (проверено опытом).

DosError содержит код ошибки (0 если не было ошибки) после "несерьёзной" операций с файлами. Например, посмотрели аттрибуты несуществующего файла. Открытие несуществующего файла вызывает уже серьёзную ошибку, поэтому надо использовать переменную IOResult, предварительно установив диррективу компилятора {$I-}.

Вобщем почитайте про директивы компилятора, они позволяют перехватывать ошибки в ран-тайме, но будьте осторожны - они не всегда дают понять была ли ошибка или нет.

[igor_564]

Если вы запускаете из своей программы какую-нибудь другую по средством процедуры Exec('программа','параметры'), то затем можно посмотреть правильно ли отработала запущенная вами программа

К подпрограммам это можно отнести?
P. S. Cпасибо, а я как-то и забыл про директивы компилятора. Т. е. когда я отключаю какую-либо директиву компилятор перестаёт наблюдать за ошибками времени выполнения и я сам могу это сделать?

[eoln]

Сообщение от igor_564

К подпрограммам это можно отнести?

Нет, только к запуску внешнего файла.

Сообщение от igor_564

компилятор перестаёт наблюдать за ошибками времени выполнения и я сам могу это сделать?

Не всегда, некоторые директивы в случае ошибок позволяют незавершать программу аварийно, но никак вам об этом не сообщают. Тут и кроется опасность.
Зачем вам именно Pascal, можно сделать консольное приложение в Delphi, ведь время DOS'a уже ушло

P.S В реальном времени компилятора уже и не будет.

[Serge_Bliznykov]

насколько я помню, единственный способ в TurboPascal как то обрабатывать ошибки - это отключать соотвествующие проверки через директивы компилятора (например, ошибки работы с файлами {$I-} {$I+} и обрбатывать ситуацию самостоятельно).

Но, похоже, в Вашем случае всё гораздо проще.
Посмотрите вот здесь:
Можно ли заставить программу не вылетать с ошибкой, если пользователь вместо целого числа введет, скажем, букву...

[igor_564]

ведь время DOS'a уже ушло

Ну, честно говоря я до Дельфи ещй не дошёл.
P. S. Извините за оффтоп но скажу: в том то и дело что ДОС уже давно стоит на месте, поэтому для обучения ПРИНЦИПАМ программирования лучше Паскаля не найти (ИМХО). А Windows постоянно движется вперёд (скачет).
И потом для меня создание программ именно на Паскале принципиально)). Один человек лопнул со смеху когда я спросил его можно ли делать 3D игры на нём. Между тем даже в некоторых учебниках есть темы программированию трёхмерной графики на этом языке. Мне почему-то кажется, что у Паскаля есть гораздо больше возможностей, чем думает большинство людей.
P. S. Блин теперь точно штрафанут.

[Alex Cones]

1) Всегда и повсюду ставьте защиту от дурака - запрет на ввод букв вместо цифр (проверяйте, проверяйте и еще раз проверяйте, что ввел юзверь).
2) В "критических" местах типа где открываем файл - СНАЧАЛА ПРОВЕРИЛИ ЕГО СУЩЕСТВОВАНИЕ. А то дал я товарищу по работе программу протестировать, которая создавала файл на секунду, потом из него читала и удаляла. Так он умудрился вызвать ERROR успев удалить файл.
3) Используем TRY.. EXCEPT для отлова ошибок.