Salut,
Généralement on colle un bloc try finally dans un try except et vice versa
pour libérer les objets et intercepter les exceptions.
L'idée est d'implémenter un gestionnaire pour l'évènement OnException de l'objet TApplication.
pour aller au plus simple, tu colle un TApplicationEvent et tu met rien dans le OnException ou alors tu loggue les exceptions dans un fichier.
1 2 3 4 5
|
procedure TForm1.ApplicationEvents1Exception(Sender: TObject; E: Exception);
begin
//rien ou loggue dans un fichier
end; |
en espérant que le provisoire ne dure pas .....
![;)](https://www.developpez.net/forums/images/smilies/icon_wink.gif)
Partager