Исключения

[Rifler]

Здраствуйте

Разбираюсь с исключениями, накалякал такой пример

procedure TForm1.Button1Click(Sender: TObject);
var d,x: extended;
begin
try    d:=0;
       x:=5/d;
   except
       on Excp : EZeroDivide	do
           ShowMessage('Ошибка под названием - '+Excp.Message)
       else
           ShowMessage('Другая ошибка');
   end;
end;

Не работает
Но как только добавляю гениальную строчку Form1.Caption:=FloatToStr(x); все начинает работать:

procedure TForm1.Button1Click(Sender: TObject);
var d,x: extended;
begin
try    d:=0;
       x:=5/d;
       Form1.Caption:=FloatToStr(x);
   except
       on Excp : EZeroDivide	do
           ShowMessage('Ошибка под названием - '+Excp.Message)
       else
           ShowMessage('Другая ошибка');
   end;
end;

В чем причина, не могу понять. Объясните плиз
Уже бьюсь головой об стену

[eoln]

Эт оптимизация виновата. В первом случае переменная х нигде не используется, поэтому компилятор её не включает в конечный код - вот и нет ошибки! Во втором случае переменная включается в код, т.к. она дальше используется - вот тут всё "логично"

[Rifler]

Спасибо большое

[Rifler]

а такой пример

a:=56;
  b:=a/0;
  c:=a/b;

b дальше вроде бы используется, но все равно исключения нет

[maxvodo.dll]

и действительно странно. деление на ноль - мгновенное EZeroDivide.
Может стоит покапаться в Tools - DebuggerOptions - OSExceptions

[eoln]

c нигде не используется дальше...
Всё та же оптимизация. Откомпилируйте код и посмотрите, что около этих строк нет отметок слева (синих точек нет). Или пошагово программу пройдите - результат вас убедит

Добавлено
Свойства проекта - вкладка компилятор - уберите оптимизацию, тогда всё будет "как нужно"