try не работает...

← →
DesertAlex (2006-02-27 14:04) [0]

Всем привет! нет, ну что, совсем я плохой, вроде делаю все, как написано в хелпе...
procedure TForm1.Button2Click(Sender: TObject);
var
a, b, c : single;
begin
b := 6;
c := 0;
try
a := b/c;
except
on EZeroDivide do ShowMessage("Деление на ноль!");
end;
Edit1.Text := FloatToStr(a);
end;

и все равно при нажатии на кнопку выдает ошибку времени выполнения EZeroDivide... почему?

← →
Ega23 © (2006-02-27 14:06) [1]

Запустись не из-под отладчика, а просто exe.

← →
Ega23 © (2006-02-27 14:07) [2]

Или Tools->Debugger Options->Language Exceptions->Stop on Delphi Exceptions галку сними.
Но это не сильно рекомендую. Как-то снял и забыл обратно поставить - потом намучался ошибки ловить

← →
Johnmen © (2006-02-27 15:57) [3]

Кстати, не из-под отладчика ошибки вообще не будет. Т.к. компилятор выкинет код в try и до него...:)

← →
novice_man © (2006-02-27 17:34) [4]

Johnmen © (27.02.06 15:57) [3]
Не выкинет.

← →
Johnmen © (2006-02-27 17:41) [5]

Ну если есть строчка Edit1.Text := FloatToStr(a); то не выкинет. Только что этот Едит покажет? :)

> Не выкинет.

Хотел возразить, что выкинет, но попробовал - не выкинуло почему-то...

> и все равно при нажатии на кнопку выдает ошибку времени
> выполнения EZeroDivide... почему?

Это сообщение для тебя, юзер его не увидит. Если ты уберешь try..except, то оно выскочит дважды - один раз как сообщение отладчика, а другой - для пользователя.

> [5] Johnmen © (27.02.06 17:41)
> Ну если есть строчка Edit1.Text := FloatToStr(a); то не
> выкинет. Только что этот Едит покажет? :)

Точно :-)

Покажет всякую муть. Случайное число.
При этом, компилятор придупреждает "переменная "a" возможно не была инициализирована"

try не работает... Найти похожие ветки