Форум: "Основная";
Текущий архив: 2003.01.16;
Скачать: [xml.tar.bz2];

Вниз

Обработка исключений   Найти похожие ветки 

← →
Berg   (2003-01-05 10:30) [0]

При обработке исключения необходимо при возникновении ошибки выдать сообщение, а при ее отсутствии выполнить определенный блок кода. Делаю так, но при отсутствии ошибки, то что находится после else не выполняется, объясните, почему???
...
try
Table1.Post;
except on EDBEngineError do
begin
MessageDlg("SOS", mtWarning, [mbOk], 0);
Table1.Cancel;
end
else
begin
{Блок кода}
end;
end;
...

---

← →
Delirium^.Tremens   (2003-01-05 10:31) [1]

Потому что в блок except..end попадаем только при наличии исключения

---

← →
Skier   (2003-01-05 10:33) [2]

>Berg

try
Table1.Post;
{Блок кода}
except on EDBEngineError do
begin
MessageDlg("SOS", mtWarning, [mbOk], 0);
Table1.Cancel;
end;
end; //try

---

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

Форум: "Основная";
Текущий архив: 2003.01.16;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.009 c