Форум: "Базы";
Текущий архив: 2002.01.24;
Скачать: [xml.tar.bz2];

Вниз

try except   Найти похожие ветки 

← →
TSV   (2001-12-07 18:40) [4]

> vano
Может быть, проблема в том, что ты не используешь on E: <тип ошибки> внутри except-блока:

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

Удачи.

---

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

Форум: "Базы";
Текущий архив: 2002.01.24;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.43 MB
Время: 0.004 c