|
Тема |
Re: Bug Handling... [re: Rincewind] |
|
Автор |
AquilaX (познат) |
|
Публикувано | 04.06.03 09:49 |
|
|
Ами аз ползвам това (от Help-a):
procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnException := AppException;
end;
procedure TForm1.AppException(Sender: TObject; E: Exception);
begin
Application.ShowException(E);
Application.Terminate;
end;
Хваща всичко в приложението което не си хванал с try..except. Гадното е че не знаеш кое е гръмнало :(
AquilaX
____________
умният знае кога да говори, мъдрият знае кога да мълчи
|
| |
|
|
|