|
Ключевое слово Except используется для отметки начала блока инструкций, которые обрабатывают исключение в предложении Try. Если блок Except может обработать исключение, то программа не заканчивается.
Except имеет два различных синтаксиса:
Версия 1
В этой версии, если предложение Try генерирует исключение, предложение Except выполняется. Это используется для предпринятия альтернативного действия, когда что-нибудь неожиданно идет не так, как надо. Однако, предложение except не может определить тип ошибки.
Версия 2
Она подобна 1 версии, но определяет различные действия для различных типов исключений, типа EInOutError. Предложение Else может использоваться как перехватчик для всех неожиданных типов исключений. Общий тип исключения Exception может использоваться для захвата всех типов исключений.
Назначение Имени (Name) исключения, текста сообщения исключения (Name.Message) может использоваться для отображения в сообщении или других использований.
Когда исключение поднимается во 2 версии 2, то если исключение не обработано инструкциями On или Else, то выполняется проверка, находимся ли мы во вложенном блоке Try. Если да, то обрабатывается пункт Except своего родительского Try. Если нет или пункт Else не был найден, программа завершается.
Предложение Else, в действительности, не является необходимым - лучше использовать On E:Exception Do, для универсальной обработки особых ситуаций, так как оно обеспечивает сообщение об ошибках (E.Message).
Важно: Вы можете определить тип ошибки, которая произошла, используя универсальную обработку особых ситуаций - On E:Exception Do. Где E - указатель на объект исключения, который создан условием исключения. E.ClassName дает тип исключения, типа 'EDivByZero', как показано в конечном коде примера.
|
|
Пример кода : Деление на ноль с простым блоком Except
var
number, zero : Integer;
begin
// Попытка делить целое число на нуль - чтобы поднять исключение
Try
zero := 0;
number := 1 div zero;
ShowMessage('number / zero = '+IntToStr(number));
Except
ShowMessage('Неизвестная ошибка');
end;
end;
Неизвестная ошибка
Пример кода : Деление на ноль с предложением Except On
var
number, zero : Integer;
begin
// Попытка делить целое число на нуль - чтобы поднять исключение
Try
zero := 0;
number := 1 div zero;
ShowMessage('number / zero = '+IntToStr(number));
Except
on E : Exception do
ShowMessage(E.ClassName+' ошибка с сообщением : '+E.Message);
end;
end;
EDivByZero ошибка с сообщением :Division by zero
|
