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

Вниз

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

 
Berg   (2002-12-18 14:30) [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;


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


 
atu   (2002-12-18 14:43) [1]

A=False
try
except
on: a=True
end

...

if A
then
else



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

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

Наверх




Память: 0.46 MB
Время: 0.016 c
4-99420
Dimon14
2002-11-15 02:51
2002.12.30
Как отследить изменение битовой матрицы, например какя то часть д


3-99001
Брат
2002-12-10 14:07
2002.12.30
INTERBASE + SQL


1-99136
@andrew
2002-12-18 13:33
2002.12.30
ПРИВЕТ ВСЕМ! Можно ли как-то в режиме Run-Time определить


7-99387
Начинающий програмер
2002-08-26 19:58
2002.12.30
температура процессора


7-99367
sef
2002-10-24 21:53
2002.12.30
Выполнение части кода из моего сервиса с правами текущего юзера#3