Gestion d'erreur

**MiJack** · 15/03/2006, 10h43

Est-il possible d'attraper toutes les exceptions qui surviennent au cours de l'execution d'une application, quelque soit l'endroit ou elle se produisent, d'une facon simple (sans mettre de Try except dans toutes les procedures, mais a un seul endroit) ?

**Tardiff Jean-François** · 15/03/2006, 10h50

Bonjour,

Extrait de l'aide Delphi 7 en français

En plus de l'affichage du message d'exception qui survient par défaut,le code suivant arrête l'application lorsqu'une exception n'est pas interceptée et traitée.

procedureTForm1.FormCreate(Sender:TObject);
begin
Application.OnException :=AppException;

end;

procedureTForm1.AppException(Sender:TObject;E:Exception);

begin
Application.ShowException(E);
Application.Terminate;
end;

**Laurent Dardenne** · 15/03/2006, 13h09

Salut, peut-on connaitre l'objectif ?

**MiJack** · 17/03/2006, 11h36

Envoyé par Laurent Dardenne

Salut, peut-on connaitre l'objectif ?

L'objectif est d'améliorer le rendu visuel lorsqu'une erreur se produit (afficher un joli message plutôt qu'un gros "Access Violation" pas très esthétique) et de créer un journal des erreurs.