Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

чайник © (2003-11-05 08:39:00)

Уважаемые мастера, помогите пожалуйста. Создаю диалог проверки имени пользователя и пароля. Как обойти состояние при неверном вводе имени или пароля, чтобы вместо системного сообщения выдать свое. Делаю следующим образом:
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 мое. Спасибо.

Mike_Goblin (2003-11-05 09:19:00) [1]

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

ЮЮ (2003-11-05 08:55:00) [2]

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

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

Mike_Goblin (2003-11-05 08:51:00) [3]

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

ЮЮ (2003-11-05 08:46:00) [4]

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

чайник (2003-11-05 08:46:00) [5]

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

Mike_Goblin (2003-11-05 08:44:00) [6]

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

ЮЮ (2003-11-05 08:43:00) [7]

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

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »