try...except не гасит исключения -> Форум на Исходниках.Ру

	Наши проекты: Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту

Здравствуйте, Гость ! [3.129.13.201]

Модераторы: jack128, Rouse_, Krid

try...except не гасит исключения

jack128

Сообщ. #1 , 12.05.05, 12:20

Moderator

Профиль · PM

Рейтинг (т): 181

Try..Except, вроде все правильно написал
Однако при работе программы выпадает стандартная ошибка и исключение не глушется

Да, такое бывает. В чем дело?
Просто вы запускает приложение из-под IDE, если запустить exe-файл, то все будет нормально, так как пользователь не будет видеть ошибки

Кстати, чтобы отключить эту фичу меню Tools -> Debugger Options -> Language Exceptions -> Stop On Delphi Exceptions.
Пример :

////////////////////////////////////////////////////////////////

procedure TForm1.Button1Click(Sender: TObject);

var

i : integer;

y : integer;

begin

i := 7;

try

y := round(i/0);

except

ShowMessage('Ошибочка вышла :)!');

y := 0;

end;

Label1.Caption := IntToStr(y);

end;

//////////////////////////////////////////////////////////////

В примере при нажатии на кнопку, я хочу в Label вывести результат деления числа на ноль, если запускать приложение из IDE, то ошибка о делении на ноль будет все равно вылетать, а если запустить exe-файл, то все работает и появляется моя инфа об ошибке

Автор: Kanes

0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)

0 пользователей:

[ Script execution time: 0,0559 ] [ 16 queries used ] [ Generated: 16.04.24, 09:10 GMT ]