Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.12.30;
Скачать: CL | DM;

Вниз

Глупый вопрос, наверно......   Найти похожие ветки 

 
Berg   (2002-12-18 14:21) [0]

Работает программа, после обработки исключения необходимо выполнить одно действие, если исключение было и другое, если его не было
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;


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


 
Skier ©   (2002-12-18 14:23) [1]

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

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

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


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

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

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

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


 
Digitman ©   (2002-12-18 14:25) [3]

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

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

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




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

Текущий архив: 2002.12.30;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.038 c
3-99035
Freeze
2002-12-11 08:43
2002.12.30
Как отловить изменение в DBGrid


6-99226
Vadimka
2002-10-31 23:02
2002.12.30
Перехват из сети www-адреса, запрашиваемых пользователями


8-99200
Серик
2002-09-13 18:14
2002.12.30
Как определить уровень сигнала подавамого на звуковую карту???


14-99259
ga_alx
2002-11-28 05:46
2002.12.30
Помогите создать схемный редактор


14-99323
kex86
2002-11-21 11:57
2002.12.30
Таракан