Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Проблема с try ...except [D5, Win2k]

stim © (2003-01-27 18:37:00)
Есть процедура :

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
а стандартная мессага с исключением?????????????????????

Song (2003-01-27 21:10:00) [1]
Убери галочку в настройках "Останавливаться на исключения Дельфи"

Shadow (2003-01-27 18:58:00) [2]
Скомпили прогу, запусти не из под Дельфи. Получишь то, что надо

DiamondShark (2003-01-27 18:55:00) [3]
Значит другой класс исключения.
Может какая сволочь изменила маску FPU, и он не генерирует исключение, а возвращает INF, а исключение, выбрасывает функция FloatToStr.

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

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

uw (2003-01-27 18:45:00) [4]
После этого написал ваш вариант и опять получил "Деление на ноль!!!!". Значит, дело было не в бабине!

uw (2003-01-27 18:43:00) [5]
Я написал
on Exception {EZeroDivide} do ShowMessage("Деление на ноль!!!!");

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

gsu (2003-01-27 18:41:00) [6]
В дебагере ?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »