Управљање грешкама под Пасцалом

Питање

У Пасцал-у подразумевано, обрада грешака обезбеђује компајлер. Из тог разлога, програм се завршава приказивањем поруке која почиње са Рунтиме еррор праћеном грешком нумбе р ...

Дакле, ако програмер жели сам да обради грешке, мора онемогућити опцију за проверу грешака од стране компајлера, коришћењем менија Оптион и Буилд ... или за употребу директива компајлера директно у програму извор кода.

На пример, ако у датом програму желимо отворити датотеку ресетовањем и да датотека не постоји, приказује се порука о грешци и програм се зауставља.

Решење

Да бисмо то избегли, можемо да тестирамо да ли или не фајл, а затим да се понашамо у складу са директивом $ И и ИОресулт као функцију која ће вратити резултат улаза / излаза. Са директивом ($ И-), програмер мора сам да управља овом врстом грешке.

Ово је програм који вам омогућава да унесете физичко име датотеке и отворите је. Ако датотека не постоји, креира се без завршетка програма на грешци: рунтиме еррор 2 ат ... (без датотеке).

 Програм отварања; Усес ВинЦрт; Типе Филе; Вар ф: Датотека; наме: стринг; Бегин Врите ('Име датотеке:'); Реадлн (име); Додели (ф, ном); {$ И-} Ресет (ф); Ако је ИОресулт 0 онда преписати (ф); {$ И +} крај. 

Хвала Зоуари Лазхар за овај тип.