try except finally

← →
alt7 (2003-06-19 13:17) [0]

Чето меня переклинило.

Вообщем пишу обработку своих возможных ошибок.
Решил рассмотреть простейший пример:

a := 1;

try
b := a / 0;
finally ShowMessage("errror"); end;
ShowMessage(FloatToStr(b));

Но в отдельном exe-файле после моего сообщения показывается и системное о делении на 0. Как убрать это системное сообщение?

PS То же самое и в try ..except

← →
Anatoly Podgoretsky © (2003-06-19 13:24) [1]

Не может быть

← →
alt7 (2003-06-19 13:25) [2]

Что значит не может быть? Издеваешься или нет?

← →
Юрий Зотов © (2003-06-19 13:26) [3]

В try-finally так и должно быть - ошибка ведь не гасится. А что касается try-except - запустите не из-под Delphi, а отдельно - будет то же самое? Если нет, то все ОК.

← →
alt7 (2003-06-19 13:28) [4]

Что значит не может быть? Издеваешься или нет?

← →
alt7 (2003-06-19 13:29) [5]

При запуске exe пишется Invalid floating point operation

← →
NickBat © (2003-06-19 13:30) [6]

> Anatoly Podgoretsky © (19.06.03 13:24)
Нельзя же так! Человека аж зациклило.
:))))

← →
Anatoly Podgoretsky © (2003-06-19 13:31) [7]

А то что если у тебя есть try except то не может быть сообщения об ошибки при делении на ноль, а вот ты возможно издеваешься, поскольку не привел свой код с try except но претензии почему то предъявляешь.

← →
Palladin © (2003-06-19 13:31) [8]

:)))

← →
alt7 (2003-06-19 13:33) [9]

А вот смотри:

try
b := a / 0;
except ShowMessage("errror"); end;
ShowMessage(FloatToStr(b));

В хелпе написано, что так должно для всех exception сработать

← →
Anatoly Podgoretsky © (2003-06-19 13:35) [10]

Юрий Зотов © (19.06.03 13:26)

Но в отдельном exe-файле после моего сообщения показывается

Поэтому и не может быть, разве что нас пытаются разыграть.

← →
Anatoly Podgoretsky © (2003-06-19 13:37) [11]

alt7 (19.06.03 13:33)
ShowMessage(FloatToStr(b));
B не определено и работать с ним не правомочно.

← →
alt7 (2003-06-19 13:38) [12]

Хохотуны, млин.

Ну сделай в Делфи форму с кнопочкой, вставь это:

procedure TForm1.Button1Click(Sender: TObject);
var
a,b: extended;
begin
a := 1;

try
b := a / 0;
except ShowMessage("errror"); end;
ShowMessage(FloatToStr(b));
end;

Если при запуске exe ничего тебе не выдаст - посыплю голову пеплом..

← →
alt7 (2003-06-19 13:39) [13]

Гы, простите товарищи мой гемморрой ;))) Это видимо не лечится ;((((

> alt7 (19.06.03 13:17)

парень в D6 усе в порядке
только что проверил

← →
_mandrake_ (2003-06-19 16:08) [15]

в D7 и win2k дела обстоят точно как описывет alt7 :-(

А поставить обработчик ошибок и нулить его потом не пробовал?

> _mandrake_ (19.06.03 16:08)

на вас всех пепла не напасешься

Так скоро плешивым стать можно.

try except finally Найти похожие ветки