Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Здравствуйте, уважаемые эксперты. У меня такой вопрос.
Есть такй подавитель ошибок "try-except". Но если в него включить больше одной строки кода, то он НЕ РАБОТАЕТ!
То есть если у нас есть такая ситуация:

try begin
inc(i);
ShowMessage('Trere will be error after this message!');
Button1.Caption:=ComboBox1.Items[i]; {Если i-го элемента не существует, то появится надпись типа "List out of bounds(i)!", }
end;
except begin
Alert.AlertMessages.Add; {а уже потом произойдёт выполнение того, что написано после "except"! }
Alert.AlertMessages.Items[0].Text:=TStringList(Alerts.Lines);
Alert.Show;
end;
end;

то вылезать сообщение об ошибке будет И системное И моё собственное!

А вот как сделать так, чтобы срабатывал ТОЛЬКО МОЙ обработчик ошибок (который после except'а)?

Заранее спасибо за ответ, Гринкевич Станислав.

Вопрос задал: Grin (статус: Посетитель) Вопрос отправлен: 13 июня 2007, 03:47 Состояние вопроса: решён, ответов: 3.

Ответ #1. Отвечает эксперт: min@y™

Тыкай Tools / debugger options / language exceptions и выруби чекбокс Stop on Delphi exceptions.

Потом жми Build.

Ответ отправил: min@y™ (статус: Доктор наук) Время отправки: 13 июня 2007, 08:27 Оценка за ответ: 5

Ответ #2. Отвечает эксперт: Матвеев Игорь Владимирович

Здравствуйте, Grin!
Во-первых: после try писать begin не требуется, т.к. эта конструкция может включать множественные оператор.
Во-вторых: вылетает не системное сообщение, а сообщение пойманное отладчиком Delphi, погда приложение пработает без отладчика их не будет.

Ответ отправил: Матвеев Игорь Владимирович (статус: Студент) Время отправки: 13 июня 2007, 08:56 Оценка за ответ: 4

Ответ #3. Отвечает эксперт: Новаковский Юрий Аврамович

Здравствуйте, Grin!
Вы не совсем правильно понимаете механизм действия
блока обработки исключений
try

except

end;

В секцию try except помещаются один или несколько
(лучше один) операторов могущих вызвать исключение, сиречь ошибку времени выполнения.
Например открытие файла, чтение или запись в файл,операция деления, и т.д.
Нет никакой необходимости помещать в эту секцию сложные операторы, цикла или условные.Наоборот, блок обработки исключений помещают внутри таких операторов.

В секцию except end помещают операторы, которые выполняются когда исключение наступило. Если в зту секцию ничего не помещать, то виндовый механизм обработки ошибок будет отключен для всех типов ошибок, что чревато непредсказуемыми последствиями. Чтобы этого избежать, необходимо отслеживать конкретный тип исключения.

try
c:=A/B; //возможно деление на 0
except
on EZeroDivide do MsgBox(....;
end;
Механизм обработки ошибок отключяется только для ошибок указаного типа, остальные обрабатываются как прежде. Можно отслеживать несколько типов исключений, определяя реакцию на каждое отдельно.

try
{ calculation statements }
except
on EZeroDivide do Value := MAXINT;
on EIntOverflow do Value := 0;
on EIntUnderflow do Value := 0;
end;

Все классы исключений завязаны в дерево,
TObject - корень, над ним Exception - все исключения, дальше ветви

EMathError (EInvalidArgument, EInvalidOp, EOverflow, EUnderflow, EZeroDivide)- ошибки арфметики,


EAccessViolation (EOutOfMemory, EOutOfResources)-ошибки работы с памятью, и т.д.

Можно указать реакцию на любую арифметическую ошибку

try
{ calculation statements }
except
on EMathError do Value := MAXINT;
end;

Удачи!

Ответ отправил: Новаковский Юрий Аврамович (статус: 4-ый класс) Время отправки: 13 июня 2007, 13:20 Оценка за ответ: 5 Комментарий к оценке: Супер. Теперь всё понятно. Боольшое спасибо!

Мини-форум вопроса

31 января 2011, 20:00: Статус вопроса изменён на решённый (изменил модератор Ерёмин А.А.): Автоматическая обработка (2 и более ответов с оценкой 5)

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.