Ошибка деление на ноль делфи

Это очень полезный инструмент ,и, кроме того, очень распространенный. Не знаю, как вы искали в гугле, если ничего не нашли на эту тему…

Конструкция

Try -> EXCEPT -> END

управляет поведением возможной исключительной ситуацией, которая может возникнуть в секции «TRY». Если такая возникает, то выполнение кода в секции «TRY» прекращается и моментально перепрыгивает в начало секции «EXCEPT» и код, находящийся там, выполняется до конца, т.е до «END». Рассмотрим пример обработки исключительной ситуацией «EZeroDevide»(деление на ноль) :

...
var
  a: integer;
  ...
begin
  try
    a := 1/0; 
  except
    on EZeroDivide do showmessage('Divide by zero not allowed!'); // обработка КОНКРЕТНОЙ исключителной ситуации
  end;
end;

Также существует еще одна конструкция обработки исключительных ситуаций:

TRY -> FINALLY -> END

Данный блок функционирует немного иначе: если в секции «TRY» возникнет исключительная ситуация, то выполнение кода оставновится в этой секции и перепрыгнет в секцию «FINALLY».
Но даже если никакой исключительной ситуации не возникнет, то в конце выполнения кода в «TRY», секция «FINALLY» все равно будет выполнена. Эту конструкцию уместно применять, если в конце работы надо произвести операции по, например, освобождению памяти. Пример:

1 случай:

...
try
  a := 1/0; 
finally
  showmessage('Divide by zero not allowed!');
end;
...

2 случай:

...
try
  a := 1/1; 
finally
  showmessage('Divide by zero not allowed!');
end;
...

В обоих случаях будет выведено сообщение.

Нравится ресурс? Помоги проекту!

[ Script execution time: 0,0487 ]   [ 16 queries used ]   [ Generated: 24.06.23, 22:14 GMT ]  

Классы исключительных ситуаций именуются начиная с буквы «Е», а базовый класс просто называется Exception. Этот базовый класс содержит необходимую функциональность, которую наследуют все объекты ошибок. Тут можно выделить свойство Message, в котором содержится сообщение об ошибке и функции работы с файлом помощи, через которые можно вызвать файл справки с описанием про­изошедшей ошибки.

В библиотеке VCL предопределено достаточно большое количество классов на различные типы ошибок, и все они являются наследниками Exception. Например, класс EinOutError соответствует ошибке ввода-вывода. Такие ошибки возникают при обращении к дискам.

Когда происходит ошибка, то создается объект, который является наследником класса, соответствующего типу ошибке. Так, если произошла ошибка ввода- вывода, то будет создан экземпляр класса EinOutError.

Давайте рассмотрим пример из листинга 8.10, где в блоке обработки ошибок я пытаюсь разделить число на ноль, что запрещено. Результат деления заносится в переменную t. Обратите внимание, что после этого я делаю проверку if. Эта проверка абсолютно бессмысленна и добавлена только для того, чтобы после деле­ния было хоть какое-то обращение к переменной. Если никакого обращения не бу­дет, то Delphi видит бессмысленность деления и оптимизатор не делает его.

В данном случае в блоке except идет два блока обработки разных типов ошибок. Чтобы проверить, не произошла ли ошибка ввода-вывода, пишем следующий блок:

Если дословно перевести, что здесь написано, то это будет выглядеть так: в случае ошибки выполнить код между begin и end. Обратите внимание, что пере­менную я заключил в квадратные скобки. Это означает, что переменную заводить не обязательно, что мы и делаем при обработке ошибки ввода-вывода:

В случае ошибки вызывается функция showMessage, которая отображает на эк­ране окно диалога с сообщением, которое указано в качестве параметра.

А теперь посмотрим на то, как мы обрабатываем ошибку деления на ноль:

Ошибке деления на ноль соответствует класс EZeroDivide. Перед классом ошибки написана переменная с именем е. Через нее мы сможем узнать сообщение об ошибке, например, так е.Message.

Помимо этого, в блоке except листинга 8.10 стоит еще ключевое слово else, как при логической операции. Обратите внимание, что после end прямо перед else стоит точка с запятой, хотя мы знаем, что это ее не нужно ставить. Ненужно только для логических операций. В данном случае else используется для обработки ис­ключительных ситуаций, и операция после этого ключевого слова будет выполне­на, если до этого ошибка не была обработана. То есть если произошла ошибка, ко­торая не была обработана блоком on ошибка do, то будет выполнен код после else.

Итак, попробуйте создать новое приложение, поместить на него кнопку и по ее нажатии написать код из листинга 8.10. Запустите пример и лучше сделайте это из Delphi. Теперь попробуйте нажать на кнопку. Произойдет ошибка, и Delphi пере­хватит на себя управление, покажет строку кода, где произошла исключительная ситуация, и покажет окно диалога с сообщением, описывающим ошибку.

Осмотрев строку кода, где произошла ошибка, нажимаем клавишу <F9>, чтобы продолжить выполнение программы. И в этот момент управление будет передано нашей программе, и вы увидите сообщение, которое мы показываем с помощью функции ShowMessage В блоке except.

Если бы вы запустили программу не из Delphi, а из файлового менеджера акти­вировали исполняемый файл, созданный в Delphi, то в момент ошибки вы увидели бы только второе сообщение, которое мы отображаем с помощью функции SenMessage.

Сообщения могут генерироваться не только исполняемой средой, но и вручную. Чтобы сгенерировать свое сообщение, используется оператор raise. После этого оператора нужно указать объект ошибки. Именно объект, т. е экземпляр какого-то класса ошибки.

Давайте посмотрим, как можно вручную сгенерировать ошибку ввода-вывода. Чтобы создать новый объект этого класса, нужно вызвать метод create, а этому ме­тоду передается сообщение, которое будет отображаться, когда сработает событие.

EinOutError.Create(‘Ошибка ввода-вывода’)

Итак, конструктор create вернет нам экземпляр класса ошибки ввода-вывода. Его мы и должны указать после оператора raise:

raise EinOutError.Create(‘Ошибка ввода-вывода’);

Вы можете создать собственный класс ошибки, нарастить его возможности, как душа пожелает, и использовать его. Давайте посмотрим, как это будет выглядеть на примере. Создадим класс MyException, который будет является наследником базо­вого класса всех ошибок — Exception:

Это объявление типа, поэтому все это должно быть в разделе type вашего моду­ля. Помимо того что класс наследовал от базового, мы объявили еще одну функ­цию Getsomestr, которая просто возвращает строку. Не будем усложнять жизнь, а реализуем эту функцию банально — просто вернем заранее определенную строку:

В разделе try мы вручную генерируем ошибку собственного типа MyException. В разделе except мы перехватываем эту ошибку и с помощью функции ShowMessage отображаем результат функции GetSomeStr. Вот так все просто и красиво.