Код ошибки BDE [D5, Paradox]
Andrews © (2002-01-30 11:45:00)
Привет всем!
try
MainForm.Table1.Open;
except
on EDBEngineError do
begin
//Как получить в этом месте код ошибки BDE
...
end;
end;
Заранее всем спасибо
TSV (2002-01-30 12:12:00) [1]
Я делаю вот так:
procedure TDataModule1.DataModuleCreate(Sender: TObject);
begin
try
// открытие БД
Database1.Open;
except
on E: Exception do
begin
MessageBeep(MB_ICONEXCLAMATION);
MessageDlg("Ошибка открытия БД. Приложение будет закрыто." +
#13#13 + E.Message, mtError, [mbOk], 0);
Application.Terminate;
Exit;
end;
end; // try
end;
Удачи.
Наверх 
ЧАТ |
Орешник |
|
