Обход системной ошибки

← →
чайник (2003-11-05 08:39) [0]

Уважаемые мастера, помогите пожалуйста. Создаю диалог проверки имени пользователя и пароля. Как обойти состояние при неверном вводе имени или пароля, чтобы вместо системного сообщения выдать свое. Делаю следующим образом:
procedure TF1.Button1Click(Sender: TObject);
begin
lname:=f1.edit1.text;
lpwd:=f1.edit2.Text;
try
dat1.params.Clear;
dat1.Params.Add("User Name="+lname);
dat1.params.add("Password="+lpwd);
Dat1.connected:=true;
f1.hide;
gl.showmodal;
Except
On EDBEngineError do ShowMessage("вам нет доступа");
End;
end;
сначало выдает системное сообщение а потом при нажатии на run мое. Спасибо.

← →
ЮЮ © (2003-11-05 08:43) [1]

>сначало выдает системное сообщение
Это только в среде IDE. Запусти ехе-шник и его не увидишь

← →
Mike_Goblin © (2003-11-05 08:44) [2]

Меню Tools/Debuger Options закдадка Language Exception
сбросить флажок Stop on Delphi Exception. И будет Вам счастье :)

← →
ЮЮ © (2003-11-05 08:46) [3]

Да, возможность не замечать собсвенные ошибки - истинное счастье :-)

← →
чайник (2003-11-05 08:46) [4]

Спасибо всем большое.

← →
Mike_Goblin © (2003-11-05 08:51) [5]

2 ЮЮ
А возможность их правильно обрабатывать в коде это просто нирвана :))))

2 Mike_Goblin © (05.11.03 08:51) [5]
> ... это просто нирвана

недостижимая при сброшенном флажке Stop on Delphi Exception :-( Или, наоборот, вечная ???

Применение в коде секций try except и try finally и написание в обработчике TApplication.OnException кода создания лога необработанных ошибок является сложнейшей задачей, требующей неимоверных усилий программиста и нетривиальных приемов программирования. :))) Как я при этом обхожусь без флажка Stop on Delphi Exception сам не знаю :))))

Обход системной ошибки Найти похожие ветки