Проблема с try ...except

← →
stim © (2003-01-27 18:37) [0]

Есть процедура :

procedure TForm1.Button1Click(Sender: TObject);
var x,y : real;
BEGIN
x:=13;
y:=0;
try
Edit3.Text := FloatToStr(x/y);
except
on EZeroDivide do ShowMessage("Деление на ноль!!!!");
end;
END;

ВОПРОС : Почему при нажатии на кнопку появляется не ShowMessage
а стандартная мессага с исключением?????????????????????

← →
gsu © (2003-01-27 18:41) [1]

В дебагере ?

← →
uw © (2003-01-27 18:43) [2]

Я написал
on Exception {EZeroDivide} do ShowMessage("Деление на ноль!!!!");

и получил то, что надо. Значит не EZeroDivide!

← →
uw © (2003-01-27 18:45) [3]

После этого написал ваш вариант и опять получил "Деление на ноль!!!!". Значит, дело было не в бабине!

← →
DiamondShark © (2003-01-27 18:55) [4]

Значит другой класс исключения.
Может какая сволочь изменила маску FPU, и он не генерирует исключение, а возвращает INF, а исключение, выбрасывает функция FloatToStr.

Попробуйте так

// on EZeroDivide do ShowMessage("Деление на ноль!!!!");
on E: Exception do ShowMessage(E.ClassName);

Скомпили прогу, запусти не из под Дельфи. Получишь то, что надо

Убери галочку в настройках "Останавливаться на исключения Дельфи"

Проблема с try ...except Найти похожие ветки