Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
||
ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
[3.138.102.178] |
|
Сообщ.
#1
,
|
|
|
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 |