ДВА СИМВОЛА УСПОКОЯТ СИСТЕМУ

Модераторы: Duncon, Naeel Maqsudov, Игорь Акопян, Хыиуду

Ответить
Аватара пользователя
timself
Сообщения: 16
Зарегистрирован: 15 мар 2007, 01:28

Случается, что программа генерирует несметное количество системных сообщений о всяких незначительных, одну её беспокоящих ошибках, вместо того, чтобы попросту их игнорировать. Заставить её это делать можно (сам придумал) например так:
В событии OnException компонента ApplicationEvents пишем всего два символа: //
Аминь.

Код: Выделить всё

procedure TForm1.ApplicationEventsException(Sender: TObject; E: Exception);
begin
  //
end;
PS: Такие "левые" ошибки возникают, например, если вводить в Edit буквы вместо цифр, а к событию OnChange привязаны перевод в integer и арифметика.
tim-soft.narod.ru
Аватара пользователя
Naeel Maqsudov
Сообщения: 2570
Зарегистрирован: 20 фев 2004, 19:17
Откуда: Moscow, Russia
Контактная информация:

А теперь представим на минутку, что где-то в цикле, в момент, определяющий условие выхода возникает исключение. Что произойдет?
Ну да! Эти два символа "успосоят систему" навсегда.

Нет. Исключения надо "проглатывать" не все подряд, А ВЫБОРОЧНО.
(См.параметры Sender и E)
Аватара пользователя
SergeyS
Сообщения: 196
Зарегистрирован: 21 ноя 2006, 17:12
Откуда: Хакасия, Абакан
Контактная информация:

А try ... except религия не позволяет использовать?
Аватара пользователя
timself
Сообщения: 16
Зарегистрирован: 15 мар 2007, 01:28

Ну, ну, будет вам...это же просто что-то вроде хумора.
PS: А так будет еще короче ВСЕГО ОДИН СИМВОЛ

Код: Выделить всё

begin
  [color=navy]//
[/color]end;
tim-soft.narod.ru
Аватара пользователя
timself
Сообщения: 16
Зарегистрирован: 15 мар 2007, 01:28

О, блин, не то написал. Вот так:

begin
;
end;
tim-soft.narod.ru
Ответить