Discussion :

[rv26t]

Bonjour,

Plutôt que de gérer les exceptions coup à coup dans les "try ... except ... end;", je souhaiterai passer l'exception à une fonction qui traiterait tous les cas.

Ex :
dans le programme sur un bloc protégé.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
  try
    ...
  except
   on e: exception do
    if not GereErreur(e) then begin {...} end; // la fonction
  end;

Mais je ne sais pas comment ensuite traiter cas par cas dans cette fonction.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
function GereErreur(E : Exception) : boolean;
begin
  //traitement de tous les cas
    // EConvertError
    ...
    // EDatabaseError
    ...
    // etc ....
end;

J'ai l'impression q'il n'y a pas moyen de déterminer le type d'exception.
Mais ce n'est peut-être pas une bonne idée de faire comme ça.

Il existe bien la possibilité généraliste directe (Dans ce cas pas besoin de fonction) mais cela n'est pas satisfaisant.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.ShowException(E);

Si vous avez une idée, n'hésitez pas.
A+, Hervé.

[Alchemist]

Salut

Tu peux essayer de tester le classname de ton erreur :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
function GereErreur(E : Exception) : boolean;
begin
    Result := True;
 
    if E.ClassName = 'EConvertError' then
    ...
    else
    if E.ClassName = 'EDatabaseError' then
    ...
    else
    Result := False;
end;

[rv26t]

Super Alchemist, cela fonctionne très bien. Merci beaucoup.

Il ne me reste plus qu'à ajouter les noms des classes d'exception au conteneur d'un stringlist et de faire un "case indexof(e.classname) of" derrière.

Merci, au revoir, Hervé.

[sjrd]

Non ! Au secours ! Pas ça... NOOOONNN...



Utilise plutôt l'opérateur is :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
if E is EConvertError then
  // ...
else if E is EDatabaseError then
  // ...
else
  // ...

[rv26t]

Je veux bien, mais peux-tu m'expliquer la raison ?
Je présume que ce doit être plus sur et plus approprié. (Déduit de ma lecture dans la Doc Delphi sur le 'is')
De plus je pourrai traiter mes classes d'exception perso.

A+, Hervé.

[rv26t]

Merci sjrd, ta solution résoud tous les problèmes qui me restaient.

Je peux même traiter mes exceptions personnalisées.

Encore merci, A+, Hervé.

[Alchemist]

Ah oui, voila quelque chose de beaucoup plus propre (désolé je débute avec la gestion des exceptions), je vais pouvoir faire quelques modifs moi aussi ...