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

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

Глупый вопрос, наверно...... [D6, Win95/98]

Berg ©   (2002-12-18 14:21:00) 

Работает программа, после обработки исключения необходимо выполнить одно действие, если исключение было и другое, если его не было
Table1.FieldByName("TextNew").AsString:=Txt.Text;
try
Table1.Post;
except on EDBEngineError do
begin
MessageDlg("В БД уже есть ...", mtWarning, [mbOk], 0);
Table1.Cancel;
end;
end;
if EDBEngineError. = True then
begin
ShowMessage("Было");
end
else
begin
ShowMessage("Не было");
end;

Вроде просто, но что-то не соображу никак. Помогите, пожалуйста!!!

---

Digitman   (2002-12-18 14:25:00) [1]

try
... что-то там, могущее вызвать исключение

... делать что-то при отсутствии исключения

except
on E:EDBEngineError do
begin
... делать что-то одно при исключении EDBEngineError
end
else
begin
... делать что-то другое при любом другом исключении EDBEngineError
end
end;

---

Бурундук   (2002-12-18 14:24:00) [2]

А так не пойдёт?

try
Table1.Post;
ShowMessage("Не было");

except on EDBEngineError do
begin
MessageDlg("В БД уже есть ...", mtWarning, [mbOk], 0);
Table1.Cancel;
ShowMessage("Было");
end;
end;

---

Skier   (2002-12-18 14:23:00) [3]

>Berg
Что-то не понятно...

> после обработки исключения необходимо выполнить одно действие,
> если исключение было и другое, если его не было

Что значит если исключение ..., если его не было ?
Если обрабатываешь исключение, то значит оно было...

---

Наверх