Искусственная генерация исключений

Try

Зачистка в разделе модуля Finalization

В этом разделе можно проверить, завершается программа нормально (ExceptAddr=Nil) или аварийно, используя функцию ExceptAddr. Для этого следует указать хотя бы пустой раздел модуля Initialization.

1.6.6. Блок обработки исключений Try ‑ Except ‑ End

Try <операторы> Except <обработка исключений> [ Else <операторы>] End; Операторы, которые указаны после Except, выполняются только при аварийном завершении работы операторов, указанных перед Except. Для задания обработки исключений в этом блоке используются операторы:

On <класс исключений> Do <оператор> или другие операторы; смешение операторов On с другими операторами не допускается.

Операторы, указанные после Else, выполняются для всех, не перехва­чен­ных ранее исключений.

Пример:

Var A,C,B: Shortint;

Begin A:=1; B:=100;

C:=StrToInt(Edit1.Text); A:=(B Div C); //обычное выполнение

Except //начало блока обработки исключений

On EConvertError Do ShowMessage('Ошибка ‑ не число! Повторите ввод');

On EdivByZero Do ShowMessage('Ошибка ‑ ноль! Повторите ввод');

On EIntOverFlow Do If (B*C)>=0 Then A:=127 Else A:=‑128;

End; //окончание блока

Некоторые исключения имеют дополнительные свойства (поля). Например, исключение EinOutError имеет свойство ErrorCode типа Integer с кодом ошибки ввода‑вывода. Для использования таких свойств. Оператор On записывается в виде:

On < метка>: <класс исключений> Do

<операторы с конструкциями <метка>. <свойство>;

Пример контроля за операциями файлового ввода - вывода:

On 10: EinOutError Do //начало обработки исключений при вводе ‑ выводе

Begin Case 10.Errorcode Of //оператор выбора варианта обработки

2: S:=’Файл ‘+S+’ не найден!’; //код ошибки=2

106: S:=’Ошибка ввода при работе с файлом ‘+S; //ошибка=106

End; //окончание обработки вариантов ошибок

ShowMessage(S); //вывод сообщения об ошибке

End; //окончание обработки исключений при вводе‑выводе

Допускаются конструкции вида:

Try... Try... Finally... End; Except... [Else... ] End;

Допускается вложенность блоков Try...Except. В этом случае внача­ле ищется обработчик в блоке, в котором создалось исключение, и если его нет, то продолжается поиск в обрамляющем блоке, и. т. д.

Для отладки обработки исключений используется оператор:

Raise [<тип исключения>[. <имя конструктора>(<параметры>)]];

Если исключение не указано, то повторно генерируется ранее обработанное исключение по схеме:

Try <операторы внешнего блока>

Try <операторы внутреннего блока>

Except //исключения внутреннего блока

On <тип исключения> Do //начало обработки исключения

Begin <обработка исключения внутреннего блока>

Raise; //повторная генерация исключения

End; //окончание обработки исключения

End; //окончание обработки всех исключений внутреннего блока

<операторы внешнего блока>

Except //исключения внешнего блока и повторно сгенерированное

On <тип исключения> Do <обработка исключений обоих блоков>

End; //окончание обработки всех исключений внешнего блока

Пример проверки вводимого значения для делителя:

If (Edit1.Text=’’) Then Raise EZeroDivide.Create(‘Пустое значение’);

Если в поле Edit1 будет пустое значение, то сгенерируется исклю­че­ние EzeroDivide и появится окно с текстом ‘Пустое значение’.

Дата добавления: 2014-12-08