| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Обработка исключений [D6, Win95/98]

Berg ©   (2003-01-05 10:30:00) 

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

---

Skier   (2003-01-05 10:33:00) [1]

>Berg

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

---

Delirium^.Tremens   (2003-01-05 10:31:00) [2]

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

---

Наверх