Показать сообщение отдельно
Старый 19.05.2005, 19:21     # 1
oji
Guest
 
Сообщения: n/a

Exceptions in Delphi (MyComponents)

Ребята, у меня проблема с перехватом исключения (причём, такая же штука наблюдалась и при работе с ODBC). Есть код:

...
try
try
FormModules.dmdlMySQL.MySQLServer.Connect;
except
on E:EMySQLError do begin
case E.Error of
ER_ACCESS_DENIED_ERROR: ShowMessage('Access Denied');
else
ShowMessage(E.Message);
end;
end;
end;
except
on E:EMySQLError do begin
ShowMessage(E.Message);
end;
...

Так вот, при двойном вызове обработчика, он иногда ловит это исключение (повторюсь, ИНОГДА), а если убрать один из try..except - то вообще не видит и вылетает в Debug.

P.S. Delphi 7, WinXP SP1... Процедурка выполняется в отдельном потоке. Хотя и без потока та же фигня... ( А через две недели надо сдавать курсовик...