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