Глупый вопрос, наверно...... [D6, Win95/98]
Berg © (2002-12-18 14:30: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;
Вроде просто, но что-то не соображу никак. Помогите,
пожалуйста!!!
atu (2002-12-18 14:43:00) [1]
A=False
try
except
on: a=True
end
...
if A
then
else
Наверх 
ЧАТ |
Орешник |
|
