Где ошибка?

[Vaigard]

Наипростейший код:

begin
 x:=strtofloat(edit1.text);
 y:=strtofloat(edit2.text);
 try
 z:=x/y;
 except

  z:=0;
 end;
 edit3.text:=floattostr(z);
end;

Выводит ошибку о делении на ноль.
Делаю так:

begin
 x:=strtofloat(edit1.text);
 y:=strtofloat(edit2.text);
 try
 z:=x/y;
 except
on EZeroDivide do
  z:=0;
 end;
 edit3.text:=floattostr(z);
end;

Результат тот же. Блок try..finally работает, а try...except нет. В чем дело?

[Sibedir]

Выводит ошибку о делении на ноль.

Наверное на этапе отладки? (при запуске из Delphi по F9). Тогда все правильно. Попробуйте откомпилировать и запустить exe-шник через эксплорер.

А почему нельзя

x := StrToFloat (Edit1.Text);
y := StrToFloat (Edit2.Text);
if y = 0 then
  Edit3.Text := 'Деление на нуль'
else begin
  z := x/y;
  Edit3.Text := FloatToStr(z);
end;

?

[Vaigard]

Дело не в работе программы, а в использовании try...except. Для некоторых моментов нельзя перебирать значения через if...then. А exe-шник действительно работает. Спасибо)

[Serge_Bliznykov]

Vaigard

просто на будущее. поведение IDE Delphi (перехватывать экспепщены или нет) настраивается:

главное меню программы - Tools - Debugger Options
третья закладка (Language Exceptions) -
убрать птичку на [ ] Stop on Delphi Exceptions

[Vaigard]

Хех, весело)