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