Скачать: CL | DM;

Проблема с 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);

---

← →
Shadow ©   (2003-01-27 18:58) [5]

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

---

← →
Song ©   (2003-01-27 21:10) [6]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.016 c