Форум: "Основная";
Текущий архив: 2002.12.30;
Скачать: [xml.tar.bz2];
ВнизГлупый вопрос, наверно...... Найти похожие ветки
← →
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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.009 c