Справочник функций и процедур Delphi: On

  Навигация по первой букве:

A  B  C  D  E  F  G  H  I  J  K  L  M  N  O  P  Q  R  S  T  U  V  W  X  Y  Z

  Навигация по категории:

Compiler directives, Directives, Keywords / Types, Variables, Constants / Functions, Procedures

  Реклама:

 

On
Ключевое слово
Определяет обработку особых ситуаций в предложении Try Except unit
  
 Try
   Statement
 {Statement...};
 Except
    On {Name :} Exception type Do Statement;
  {Else Statement}
  End;

Google  
 
Описание
Ключевое слово 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', как показано в примере.
Похожие команды
Except  Начинает предложение заманивающее в ловушку ошибки Try инструкции

Finally  Начинает безоговорочный раздел кода инструкции Try

Raise  Поднимает исключение

Try  Начинает код, который перехватывает ошибки

 
Пример кода : Деление на ноль с пунктом 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
 
Пример кода : Деление на ноль с многочисленными пунктами Except On
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
 


Copyright © 2004-2016 Delphi Sources (источник – "DelphiBasics.ru")
 


Группа ВКонтакте   Ссылка на Twitter   Группа на Facebook