Цитата:
|
Сообщение от Yurk@
самый простой вариант
Код:
try
IBDatabase1.Connected:=True;
Except
ShowMessage('Ошибка подключения к БД');
end; |
эх, если бы всё было так просто. не воспринимает этого Delphi..
по идее, должно бы сработать:
Код:
try
IBDatabase1.Connected:=True;
except
on EIBInterBaseError do MessageDlg('Ошибка! Не найдена база!',mtError, [mbYes], 0);
end;
В ошибке-то, когда программа вылетает, именно этот класс исключений указан (EIBInterBaseError) самим Delphi, а при компиляции программы это всего лишь неизвестный идентификатор...
если самостоятельно тип исключения задавать:
Код:
type
EIBInterbaseError = class (Exception);
то снова вылетаю с той же ошибкой о поднятии класса исключения..