eddoc
Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Код: function TForm1.TestConnWithExcept(Sender: TpFIBDatabase; PCustomEditObj: Pointer; const LogExcept: Boolean): boolean; begin Result:= True; try TpFIBDatabase(Sender).Connected := True; except on E:Exception {EFIBInterBaseError} do begin Result:= False; if LogExcept then TCustomEdit(PCustomEditObj^).Text:= E.Message; TpFIBDatabase(Sender).Connected:= False; raise EAbort.Create('');//давим текст ошибки end; end; TpFIBDatabase(Sender).Connected:= False; end; |
| Всего записей: 328 | Зарегистр. 25-11-2007 | Отправлено: 18:24 13-09-2012 | Исправлено: eddoc, 18:25 13-09-2012 |
|