Почему не происходит обработка исключений?

Question

[Евгений Иванов]

Простейший код. Сообщение - Возникло исключение не появляется. Любой код в секции except не выполняется.
Если вынести код c:=a div b; за пределы try-except программа сообщит Division by zero.
Почему не происходит обработка исключений?

procedure TForm1.Button2Click(Sender: TObject);
var
a,b,c:integer;
begin
a:=1;
b:=0;
try
c:=a div b;
except
ShowMessage('Возникло исключение.'); //Это сообщение не появляется
end;
end;

Comments

[Евгений Вольф]

Интереса ради, а это нормально, что Вы сначала объявляете c, как результат деления двух других переменных, а потом уже объявляете сами эти переменные (т.е. с - есть результат деления двух переменных, значение которых не определено), а потом с (пере)определяется... Я уже лет 15 не писал ничего не pascal/delphi, и просто хотел узнать, так можно делать?

[Евгений Иванов]

По идее присваивать значение "с" в данном примере не нужно. Это значение будет результатом от деления.
Объявление всех переменных идет в секции var.
Присваивание значений чуть ниже.
Можно так делать.
В разных языках можно еще и не так делать.

[Rou1997]

Евгений Вольф: В старых версиях Object Pascal только так и можно, любую переменную надо объявлять заранее в специальном блоке, что очень неудобно, даже i в циклах приходится объявлять заранее.

[Евгений Иванов]

Вопрос про исключения. Простейший код. А исключение не ловится-обрабатывается.

[Евгений Вольф]

Rou1997: в текущей версии кода - уже исправлено что-то, в изначальной версии было так: "сначала деление, а потом присваиваем значение переменным", грубо говоря "a:=1; b:=0;" было после "c:=a div b;", и такая логика меня немного смутила...

Answer 1

[Rou1997]

У меня (Delphi 7) ваш код видимо уничтожается оптимизатором ведь в нем не используется значение переменной c, дизассемблировать лень но похоже так, ведь если сделать чтобы оно использовалось, то работает:

procedure TForm1.Button1Click(Sender: TObject);
var
  a, b, c: integer;
begin
a := 5;
b := 0;
try
  c := a div b;
  ShowMessage(FloatToStr(c)); // --
except
  ShowMessage('test');
end;
end;

Разумеется запускать нужно вне отладчика Delphi, иначе он сам сперва покажет свое стандартное сообщение с ошибкой.

Comments

[Евгений Иванов]

Да ваш код показывает сообщение. Но все равно не ясно в чем дело.
Деление на ноль было, ошибка была - идем в except.
Что значит использовать значение с?
с определено в секции var как переменная. Мы даже можем задать ему значение выше с:=0, например.
А ниже с:=c+1;
И ничего не произойдет, в моем примере.
Вставим с:=c+1; во все секции до и после try except end и ничего....

[Rou1997]

logpol32: Ну, я удивляюсь с того каким можно быть идиотом, ну, что может быть непонятного в слове "использовать значение"? То значение, которое получается при делении, у вас оно не используется, а у меня используется, вот использование:
ShowMessage(FloatToStr(c));
Неиспользуемые переменные компилятор может вообще не компилировать если включена оптимизация, а она по умолчанию обычно везде включена.

Answer 2

[xmoonlight]

except
on EZeroDivide do ShowMessage('Возникло исключение.');

Comments

[Евгений Иванов]

А почему так? Я не обязан указывать вид ошибки. Да и так не будет сообщения.
Код простейший - ошибка в секции try - остановись и иди в секцию except.