![]() |
|
|
|||||||
| Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
|
|
#1
|
||||
|
||||
|
Цитата:
Код:
try
i:= StrToInt(str);
except
ShowMessage('Пр-р-р, приехали');
end;Код:
try
???????????????????
except
ShowMessage('Такой параметр уже существует');
end; |
|
#2
|
||||
|
||||
|
Можно глобально к данному вопросу подобраться, примерно так
Код:
...
procedure FormCreate(Sender: TObject);
procedure MyOnException(Sender: TObject; E: Exception);
...
procedure TForm1.MyOnException(Sender: TObject; E: Exception);
begin
ShowMessage('Поймано предупреждение: ' + E.Message);
// вот здесь что-то делаем
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnException:= MyOnException;
end;А вообще такой ещё есть фортель, чтоб программа не останавливалась при ИС, можно в меню Tools -> Debugger Options... на вкладке Language Exceptions снять птису с чекбокса Stop on Delphi Exceptions, хоть раздражать среда во время отладки не будет своими "выкидонами" с остановкой ![]() |
| Этот пользователь сказал Спасибо Alegun за это полезное сообщение: | ||
Помидоркин (06.03.2014)
| ||
|
#3
|
|||
|
|||
|
Можешь сам проверять KeyIsValid.
А если посмотреть, откуда от вызывается, то увидим: при добавлении элемента, и при окончании редактирования. Внутри события OnSetEditText можешь отменить запись, вызвав SysUtils.Abort. |
| Этот пользователь сказал Спасибо icWasya за это полезное сообщение: | ||
Помидоркин (06.03.2014)
| ||
|
#4
|
||||
|
||||
|
Цитата:
|
| Этот пользователь сказал Спасибо cotseec за это полезное сообщение: | ||
Помидоркин (06.03.2014)
| ||