[Exception] Propagation des exceptions

Version imprimable

Utilisant très rarement les exceptions personnalisées et la propagation de celle-ci d'une procédure à une autre., j'aimerai savoir si je ne fais pas fausse route sur la propagation de ces dernières.

Voici l'exception personnalisée (rien de bien compliquer ^^)

Code:

1
2
 
Type EAuthNotFound = class(Exception)

Voici la fonction principale sur laquel je voudrais réceptionner l'exception

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
procedure MaProcedurePrincipale; 
begin
  Try
     MaProcedureSecondaire 
  Except 
    On E:EAuthNotFound do
    begin
      Showmessage('l''erreur est : ' + E.Message);
    end;
    On E:Exception do
      raise;
  end;
end;

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
procedure MaProcedureSecondaire;
begin
  try
    if Mafunction then
      Showmessage('Fini');
  Except
    On E:EAuthNotFound do
    begin
      // Est on obligé de faire comme ca pour que cette exception se propage ?
      raise EAuthNotFound.Create(E.Message);
    end;
    On E:Exception do raise;
  end;
end;

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
function Mafunction : Booelan;
begin
  try
    //récupération d'informations d'un fichier Xml
    Case StrToIntDef((Noeud.Text),-1) of
       -1: Raise EAuthNotFound.Create('No Auth Found'); // erreur
        0: Result := True;
        else
           Result := False;
        end;
    end;
  Except
      on E:EAuthNotFound do
      // Est on obligé de faire comme ca pour que cette exception se propage ?
        raise EAuthNotFound.Create(E.Message);
 
    on E:Exception do
      Raise Exception.Create('Error MaFunction : ' + E.Message);
  end;
end;

J'ai essayé en utilisant un simple Raise, mais l'exception en elle même n'est pas transmise (EAuthNotFound) et passe par le gestionnaire d'exception commun (E:Exception).

Est ce correcte ou existe-t-il une autre solution ?

Merci ^^

Ce code me semble plus juste égard à ta demande.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
 
procedure MaProcedurePrincipale;
begin
  Try
     MaProcedureSecondaire
  Except
    On E : EAuthNotFound do ShowMessage('Exception (EAuthNotFound) : ' + E.Message);
    On E : Exception do ShowMessage('Exception (Exception) : ' + E.Message);
  end;
end;
 
 
procedure MaProcedureSecondaire;
begin
  try
    if Mafunction then
      Showmessage('Fini');
  Except
    Raise;
  end;
end;
 
function Mafunction : Boolean;
const
   Noeud = '50';
begin
   try
    Case StrToIntDef(Noeud,-1) of
       -1: Raise EAuthNotFound.Create('No Auth Found'); // erreur
        0: Result := True;
    else
      Result := False;
    end;
 
   // StrToInt('ss');
   Except
      on EAuthNotFound do Raise;
      on E : Exception do Raise Exception.Create('Error MaFunction : ' + E.Message);
   end;
end;

03/08/2007, 15h47
Rayek
Bon en fait j'ai trouvé d'où venait le problème ^^

Si j'ai
Code:

1 2 3 On E : Exception do ShowMessage('Exception (Exception) : ' + E.Message); On E : EAuthNotFound do ShowMessage('Exception (EAuthNotFound) : ' + E.Message);
E:Exception sera toujours passé en priorité

Il faut donc mettre les exceptions spécifique avant l'exception globale.
03/08/2007, 16h12
STARIS79

de rien. :D
03/08/2007, 16h36
sjrd

Citation:

Envoyé par Malatar

Il faut donc mettre les exceptions spécifique avant l'exception globale.

Exactement.

En outre, ceci est totalement inutile :

Code:

on E : Exception do raise;

Il suffit de ne rien mettre du tout : toute exception non gérée est "propagée" telle quelle.
03/08/2007, 16h59
Rayek

Citation:

Envoyé par sjrd

Exactement.

CA fait plusieurs heures que je cherchais pourquoi :aie:
Vu que c'est la première fois que j'utilise les Exceptions persos, mais bon ca rentre ^^

Citation:

Envoyé par sjrd

En outre, ceci est totalement inutile :

Code:

on E : Exception do raise;

Il suffit de ne rien mettre du tout : toute exception non gérée est "propagée" telle quelle.

C'était pour l'exemple ^^