Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.12.16;
Скачать: CL | DM;

Вниз

Как отловить исключительную ситуацию, которая возникает, когда я   Найти похожие ветки 

 
Брат ©   (2002-11-26 16:43) [0]

Люди, как отловить исключительную ситуацию, которая возникает, когда я пытаюсь в проиндексированное поле занести одинаковые значения (значения у меня стоят уникальные(UNIQUE))?


 
Johnmen ©   (2002-11-26 16:55) [1]

try


 
exit   (2002-11-26 16:56) [2]


try

except on E: EНазваниеИзОкнаException do
begin
...
end;
end;


 
Брат ©   (2002-11-26 17:25) [3]


> try
>
> except on E: EНазваниеИзОкнаException do
> begin
> ...
> end;
> end;

куда это вставить? В BeforePost не получается....


 
exit   (2002-11-26 17:29) [4]

Для случая с IBX:

type TDataSetErrorEvent = procedure(DataSet: TDataSet; E: EDatabaseError; var Action: TDataAction) of object;


 
exit   (2002-11-26 17:30) [5]

Не докопировал...

property OnPostError: TDataSetErrorEvent;


 
Johnmen ©   (2002-11-26 17:31) [6]

Для начала (перед тупой, извини, вставкой) неплохо бы внимательно прочитать хелп...


 
Брат ©   (2002-11-26 17:32) [7]


> type TDataSetErrorEvent = procedure(DataSet: TDataSet; E:
> EDatabaseError; var Action: TDataAction) of object;

пожалуйста, поподробнее...


 
exit   (2002-11-26 17:35) [8]

Да, криво это все.
Про обработку ошибок в IBDatabase читай на:
http://www.ibase.ru


 
exit   (2002-11-26 17:38) [9]

Брат, ты че? Дави F1.
А для IBX есть Event - OnPostError... я же написал.


 
Diouzshev   (2002-11-26 17:43) [10]

Можно, если подойдет
procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnException := AppException;

end;

procedure TForm1.AppException(Sender: TObject; E: Exception);

begin
if E.ClassType = {то что ловишь} then
begin
E.Free;
E:= Exception.Create("В угол поставлю!");
end;
Application.ShowException(E);
end;


 
Брат ©   (2002-11-26 17:46) [11]

Он вообще не заходит в OnPostError....


 
Брат ©   (2002-11-26 18:18) [12]


> procedure TForm1.AppException(Sender: TObject; E: Exception);
>
> begin
> if E.ClassType = {то что ловишь} then
> begin
> E.Free;
> E:= Exception.Create("В угол поставлю!");
> end;
> Application.ShowException(E);
> end;

Что-то не получается: вместо {то что ловишь} подставляю EIBInterBaseError - компилятор матерится....



Страницы: 1 вся ветка

Текущий архив: 2002.12.16;
Скачать: CL | DM;

Наверх




Память: 0.49 MB
Время: 0.011 c
1-51741
Pan
2002-12-06 12:40
2002.12.16
Быстрое определение формата файлов DOC и XLS


3-51557
Брат
2002-11-26 14:57
2002.12.16
Мастера! Запись не всегда удаляется с первого раза...


14-51907
Мазут Береговой
2002-11-22 00:51
2002.12.16
Я от жены ушел... или... она от меня...


4-52035
cardinal
2002-10-31 02:36
2002.12.16
Как узнать адреса процессов в w98?


1-51708
Tundra
2002-12-06 06:56
2002.12.16
Вопрос по Паскалю. Перебор эл-ов множества.