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... Процедурка выполняется в отдельном потоке. Хотя и без потока та же фигня... :(( А через две недели надо сдавать курсовик...

Если надо поймать все исключения, то On E:Eception;
А EMySQLError это одно частное исключение

Увы, но не во "всех эксепшнах" проблема. Проблема в том, что они не перехватываются. БДшные...

Блок
Try
//ЧТо угодно
Except
On E:Exception do
End;

Должен перехватывать абсолютно всё. Если этого не происходит, то где-то кто-то портит память.

а пошагово выполнять не пробовал?