try except qui affiche quand même l'erreur

**Basile le disciple** · 19/06/2015, 10h48

bonjour à tous,

Je voudrais pouvoir gérer des erreurs comme des divisions par zéro à l'aide du bloc try except, sauf que celui-ci n'affiche pas mon erreur et laisse Delphi en afficher une(Division par zéro en virgule flottante). Voici mon code :

Code :

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

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
41
42
43
44
45
46
47
48
49
 
function TArbre.Evalue(Noeud : TNoeud) : extended;
begin
  result:=0;
  if Error <> '' then Exit;
  try
    if Noeud.Operateur = 'c' then result:=Noeud.Value else
    if Noeud.Operateur = '(' then result:=Evalue(Noeud.Fils[0])                          else
    if Noeud.Operateur = '+' then result:=Evalue(Noeud.Fils[0]) + Evalue(Noeud.Fils[1]) else
    if Noeud.Operateur = '-' then result:=Evalue(Noeud.Fils[0]) - Evalue(Noeud.Fils[1]) else
    if Noeud.Operateur = '×' then result:=Evalue(Noeud.Fils[0]) * Evalue(Noeud.Fils[1]) else
    if Noeud.Operateur = 'random' then result:=random(round(Evalue(Noeud.Fils[0])))       else
    if Noeud.Operateur = 'int' then result:=int(Evalue(Noeud.Fils[0]))                    else
    if Noeud.operateur = 'variable' then result:=Evalue(Noeud.Fils[0])                   else
    if Noeud.Operateur = 'arrondi' then result:=roundTo( Evalue(Noeud.Fils[0]) , round( Evalue(Noeud.Fils[1])) ) else
    if Noeud.Operateur = 'longueur' then result:=length(Noeud.Fils[0].Operateur) else
    if Noeud.Operateur = '÷' then result:=Evalue(Noeud.Fils[0]) / Evalue(Noeud.Fils[1]) else
    if Noeud.Operateur = '%' then result:=Evalue(Noeud.Fils[0]) / 100                    else
    if Noeud.Operateur = '^' then result:=Power(Evalue(Noeud.Fils[0]),Evalue(Noeud.Fils[1])) else
    if Noeud.Operateur = 'sqrt' then result:=Sqrt(Evalue(Noeud.Fils[0]))                       else
    if Noeud.Operateur = 'log' then result:=Log10(Evalue(Noeud.Fils[0]))                       else
    if Noeud.Operateur = 'ln' then result:=ln(Evalue(Noeud.Fils[0]))                           else
    if Mode = degre then
    begin
      if Noeud.Operateur = 'arccos' then result:=Arccos(Evalue(Noeud.Fils[0]))*180/pi            else
      if Noeud.Operateur = 'arcsin' then result:=Arcsin(Evalue(Noeud.Fils[0]))*180/pi            else
      if Noeud.Operateur = 'arctan' then result:=Arctan(Evalue(Noeud.Fils[0]))*180/pi            else
      if Noeud.Operateur = 'cos' then result:=Cos(Evalue(Noeud.Fils[0])*pi/180)                  else
      if Noeud.Operateur = 'sin' then result:=Sin(Evalue(Noeud.Fils[0])*pi/180)                  else
      if Noeud.Operateur = 'tan' then result:=Tan(Evalue(Noeud.Fils[0])*pi/180);
    end else
    begin
      if Noeud.Operateur = 'arccos' then result:=Arccos(Evalue(Noeud.Fils[0]))            else
      if Noeud.Operateur = 'arcsin' then result:=Arcsin(Evalue(Noeud.Fils[0]))            else
      if Noeud.Operateur = 'arctan' then result:=Arctan(Evalue(Noeud.Fils[0]))            else
      if Noeud.Operateur = 'cos' then result:=Cos(Evalue(Noeud.Fils[0]))                  else
      if Noeud.Operateur = 'sin' then result:=Sin(Evalue(Noeud.Fils[0]))                  else
      if Noeud.Operateur = 'tan' then result:=Tan(Evalue(Noeud.Fils[0]));
    end;
  except
    on EDivByzero do
    begin
      Error:='Erreur : division par 0';
      ShowMessage(Error);
    end;
    //on EInvalidPointer do Error:='Erreur : pas assez de paramètres originaux';
  end;
 
end;

J'ai lu sur internet que le message de delphi s'affichait seulement quand on est dans l'ide, mais là, il s'affiche même via l'exe

Je suis novice avec ce type de bloc, ça doit être tout simple mais je n'arrive pas à trouver...

Je voudrais aussi gérer l'exeption au cas où un des fils appelés n'existe pas, j'ai pensé à EInvalidPointer mais apparemment ce n'est pas elle...
Qqn aurait une idée??

**Linkin** · 19/06/2015, 11h01

L'exception est EZeroDivide, c'est pour cela qu'elle s'affiche.
Pour savoir quel est le type de l'exception qui n'est pas géré, tu peux utiliser quelque chose comme ça:

Code :

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

1
2
3
4
5
6
7
8
 
  on E:EZeroDivide do begin
 
 
  end;
  on E:Exception do begin
  showmessage(E.ClassName);
  end;

**Basile le disciple** · 19/06/2015, 11h14

merci pour la rapidité de ta réponse,

L'exception est EZeroDivide, c'est pour cela qu'elle s'affiche.

Je voudrais justement qu'elle ne s'affiche pas et que ce soit mon erreur qui apparaisse. Avec ton code, l'erreur de Delphi et la mienne s'affichent.
Quant à l'autre exeption, c'est EAccessViolation qu'il fallait mettre, merci bcp!

**anapurna** · 19/06/2015, 11h44

salut

bin enleve la gestion d'erreur dans ces cas là

Code :

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

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
41
42
43
44
45
46
47
48
49
function TArbre.Evalue(Noeud : TNoeud) : extended;
begin
  result:=0;
  if Error <> '' then Exit;
  try
    if Noeud.Operateur = 'c' then result:=Noeud.Value else
    if Noeud.Operateur = '(' then result:=Evalue(Noeud.Fils[0])                          else
    if Noeud.Operateur = '+' then result:=Evalue(Noeud.Fils[0]) + Evalue(Noeud.Fils[1]) else
    if Noeud.Operateur = '-' then result:=Evalue(Noeud.Fils[0]) - Evalue(Noeud.Fils[1]) else
    if Noeud.Operateur = '×' then result:=Evalue(Noeud.Fils[0]) * Evalue(Noeud.Fils[1]) else
    if Noeud.Operateur = 'random' then result:=random(round(Evalue(Noeud.Fils[0])))       else
    if Noeud.Operateur = 'int' then result:=int(Evalue(Noeud.Fils[0]))                    else
    if Noeud.operateur = 'variable' then result:=Evalue(Noeud.Fils[0])                   else
    if Noeud.Operateur = 'arrondi' then result:=roundTo( Evalue(Noeud.Fils[0]) , round( Evalue(Noeud.Fils[1])) ) else
    if Noeud.Operateur = 'longueur' then result:=length(Noeud.Fils[0].Operateur) else
    if Noeud.Operateur = '÷' then result:=Evalue(Noeud.Fils[0]) / Evalue(Noeud.Fils[1]) else
    if Noeud.Operateur = '%' then result:=Evalue(Noeud.Fils[0]) / 100                    else
    if Noeud.Operateur = '^' then result:=Power(Evalue(Noeud.Fils[0]),Evalue(Noeud.Fils[1])) else
    if Noeud.Operateur = 'sqrt' then result:=Sqrt(Evalue(Noeud.Fils[0]))                       else
    if Noeud.Operateur = 'log' then result:=Log10(Evalue(Noeud.Fils[0]))                       else
    if Noeud.Operateur = 'ln' then result:=ln(Evalue(Noeud.Fils[0]))                           else
    if Mode = degre then
    begin
      if Noeud.Operateur = 'arccos' then result:=Arccos(Evalue(Noeud.Fils[0]))*180/pi            else
      if Noeud.Operateur = 'arcsin' then result:=Arcsin(Evalue(Noeud.Fils[0]))*180/pi            else
      if Noeud.Operateur = 'arctan' then result:=Arctan(Evalue(Noeud.Fils[0]))*180/pi            else
      if Noeud.Operateur = 'cos' then result:=Cos(Evalue(Noeud.Fils[0])*pi/180)                  else
      if Noeud.Operateur = 'sin' then result:=Sin(Evalue(Noeud.Fils[0])*pi/180)                  else
      if Noeud.Operateur = 'tan' then result:=Tan(Evalue(Noeud.Fils[0])*pi/180);
    end else
    begin
      if Noeud.Operateur = 'arccos' then result:=Arccos(Evalue(Noeud.Fils[0]))            else
      if Noeud.Operateur = 'arcsin' then result:=Arcsin(Evalue(Noeud.Fils[0]))            else
      if Noeud.Operateur = 'arctan' then result:=Arctan(Evalue(Noeud.Fils[0]))            else
      if Noeud.Operateur = 'cos' then result:=Cos(Evalue(Noeud.Fils[0]))                  else
      if Noeud.Operateur = 'sin' then result:=Sin(Evalue(Noeud.Fils[0]))                  else
      if Noeud.Operateur = 'tan' then result:=Tan(Evalue(Noeud.Fils[0]));
    end;
  except
   (* on EDivByzero do
    begin
      Error:='Erreur : division par 0';
      ShowMessage(Error);
    end;
    //on EInvalidPointer do Error:='Erreur : pas assez de paramètres originaux'; *)
  end;
 
end;

**Basile le disciple** · 19/06/2015, 11h57

Je crois que je me suis mal expliqué,

Code :

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

1
2
 
if Noeud.Operateur = '÷' then result:=Evalue(Noeud.Fils[0]) / Evalue(Noeud.Fils[1]) else

avec mon code, il y a 2 messages d'erreur quand Evalue(Noeud.Fils[1]) = 0 :

une de delphi : Division par zéro en virgule flottante
puis une de moi qui affiche : Erreur : Division par zéro

je voudrais éviter celle de delphi qui envoie une boite de dialogue un peu moche et surtout un texte qui ne me convient pas et mettre à la place mon message d'erreur avec un messageDlg et me retrouver avec une seule erreur affichée.

Je pourrais tout simplement éviter l'erreur en vérifiant que Noeud.fils[1] soit différent de 0 avant, mais je voudrais gérer d'autres erreurs imprévisibles

**anapurna** · 19/06/2015, 15h24

salut

effectivement c'est plus clair comme cela ^^
sauf que je ne vois pas ou tu divise dans ta fonction évalue ... je suppose donc qu'elle se trouve ailleurs dans le programme
donc deux choix s'impose a toi soit tu traite l’exception
soit tu lève l’exception avec la méthode raise dans le corps de la méthode déclenchant

Pour traiter l’exception // tu connais mais je le rappel a ceux qui lise le thread

Code :

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

1
2
3
4
5
6
7
8
9
 
try
  ...
Except
  on EDivByzero do 
  begin
    ...
  end;
end;

Pour levé une exception :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
try
  ...
Except
  on EDivByzero do
  begin
    ... //traitement de l'exception
    raise; // l'exception est relever et donc passée à la procédure appelante
  end;
end;

**Basile le disciple** · 19/06/2015, 16h06

merci,

j'avais déjà essayer ce mot clé mais les résultats sont différents :

Code :

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

1
2
 
    if Noeud.Operateur = '÷' then result:=Evalue(Noeud.Fils[0]) / Evalue(Noeud.Fils[1]) else

C'est ici que je fais une division avec une possibilité de division par 0.
S'il y en a une, je n'ai que le message de Delphi et mon message ne s'affiche pas..

Code :

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

1
2
 
   if Noeud.Operateur = 'arrondi' then result:=roundTo( Evalue(Noeud.Fils[0]) , round( Evalue(Noeud.Fils[1])) ) else

et là, si Noeud.Fils[1] n'existe pas, mon message d'erreur s'affiche bien mais celui de delphi apparait juste après même avec l'exe...

voici le code que j'ai utilisé :

Code :

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

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
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
 
function TArbre.Evalue(Noeud : TNoeud) : extended;
begin
  result:=0;
  if Error <> '' then Exit;
  try
    if Noeud.Operateur = 'c' then result:=Noeud.Value else
    if Noeud.Operateur = '(' then result:=Evalue(Noeud.Fils[0])                          else
    if Noeud.Operateur = '+' then result:=Evalue(Noeud.Fils[0]) + Evalue(Noeud.Fils[1]) else
    if Noeud.Operateur = '-' then result:=Evalue(Noeud.Fils[0]) - Evalue(Noeud.Fils[1]) else
    if Noeud.Operateur = '×' then result:=Evalue(Noeud.Fils[0]) * Evalue(Noeud.Fils[1]) else
    if Noeud.Operateur = 'random' then result:=random(round(Evalue(Noeud.Fils[0])))       else
    if Noeud.Operateur = 'int' then result:=int(Evalue(Noeud.Fils[0]))                    else
    if Noeud.operateur = 'variable' then result:=Evalue(Noeud.Fils[0])                   else
    if Noeud.Operateur = 'arrondi' then result:=roundTo( Evalue(Noeud.Fils[0]) , round( Evalue(Noeud.Fils[1])) ) else
    if Noeud.Operateur = 'longueur' then result:=length(Noeud.Fils[0].Operateur) else
    if Noeud.Operateur = '÷' then result:=Evalue(Noeud.Fils[0]) / Evalue(Noeud.Fils[1]) else
    if Noeud.Operateur = '%' then result:=Evalue(Noeud.Fils[0]) / 100                    else
    if Noeud.Operateur = '^' then result:=Power(Evalue(Noeud.Fils[0]),Evalue(Noeud.Fils[1])) else
    if Noeud.Operateur = 'sqrt' then result:=Sqrt(Evalue(Noeud.Fils[0]))                       else
    if Noeud.Operateur = 'log' then result:=Log10(Evalue(Noeud.Fils[0]))                       else
    if Noeud.Operateur = 'ln' then result:=ln(Evalue(Noeud.Fils[0]))                           else
    if Mode = degre then
    begin
      if Noeud.Operateur = 'arccos' then result:=Arccos(Evalue(Noeud.Fils[0]))*180/pi            else
      if Noeud.Operateur = 'arcsin' then result:=Arcsin(Evalue(Noeud.Fils[0]))*180/pi            else
      if Noeud.Operateur = 'arctan' then result:=Arctan(Evalue(Noeud.Fils[0]))*180/pi            else
      if Noeud.Operateur = 'cos' then result:=Cos(Evalue(Noeud.Fils[0])*pi/180)                  else
      if Noeud.Operateur = 'sin' then result:=Sin(Evalue(Noeud.Fils[0])*pi/180)                  else
      if Noeud.Operateur = 'tan' then result:=Tan(Evalue(Noeud.Fils[0])*pi/180);
    end else
    begin
      if Noeud.Operateur = 'arccos' then result:=Arccos(Evalue(Noeud.Fils[0]))            else
      if Noeud.Operateur = 'arcsin' then result:=Arcsin(Evalue(Noeud.Fils[0]))            else
      if Noeud.Operateur = 'arctan' then result:=Arctan(Evalue(Noeud.Fils[0]))            else
      if Noeud.Operateur = 'cos' then result:=Cos(Evalue(Noeud.Fils[0]))                  else
      if Noeud.Operateur = 'sin' then result:=Sin(Evalue(Noeud.Fils[0]))                  else
      if Noeud.Operateur = 'tan' then result:=Tan(Evalue(Noeud.Fils[0]));
    end;
  except
    on EDivByzero do
    begin
      Error:='Erreur : division par 0';
      MessageDlg(error,mtWarning,[mbOK],0);
      raise;
    end;
 
    on EAccessViolation do
    begin
      Error:='Erreur : pas assez de paramètres originaux pour la fonction ' + Noeud.Operateur;
      MessageDlg(error,mtWarning,[mbOK],0);
      raise;
    end;
  end;
 
end;

Qu'est ce que je rate??

**Linkin** · 19/06/2015, 16h37

Si tu capture EZeroDivide et non EDivByzero, il n'y a que ton message qui s'affiche.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
   on EZeroDivide do
    begin  
    Error:='Erreur : division par 0';
      MessageDlg(error,mtWarning,[mbOK],0);
      raise;
    end;
 
    on EAccessViolation do
    begin
      Error:='Erreur : pas assez de paramètres originaux pour la fonction ' + Noeud.Operateur;
      MessageDlg(error,mtWarning,[mbOK],0);
      raise;
    end;  
on E:Exception do
 begin   
 showmessage(E.ClassName);
  end;

**Basile le disciple** · 19/06/2015, 17h25

Faudra m'expliquer où est-ce que j'étais pondre ça

merci le fonctionnement est beaucoup plus logique mais j'ai toujours ce

de problème des 2 messages qui s'affichent malgré raise :
mon message d'erreur puis celui de delphi que je veux supprimer.

Code :

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

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
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
 
function TArbre.Evalue(Noeud : TNoeud) : extended;
begin
  result:=0;
  if Error <> '' then Exit;
  try
    if Noeud.Operateur = 'c' then result:=Noeud.Value else
    if Noeud.Operateur = '(' then result:=Evalue(Noeud.Fils[0])                          else
    if Noeud.Operateur = '+' then result:=Evalue(Noeud.Fils[0]) + Evalue(Noeud.Fils[1]) else
    if Noeud.Operateur = '-' then result:=Evalue(Noeud.Fils[0]) - Evalue(Noeud.Fils[1]) else
    if Noeud.Operateur = '×' then result:=Evalue(Noeud.Fils[0]) * Evalue(Noeud.Fils[1]) else
    if Noeud.Operateur = 'random' then result:=random(round(Evalue(Noeud.Fils[0])))       else
    if Noeud.Operateur = 'int' then result:=int(Evalue(Noeud.Fils[0]))                    else
    if Noeud.operateur = 'variable' then result:=Evalue(Noeud.Fils[0])                   else
    if Noeud.Operateur = 'arrondi' then result:=roundTo( Evalue(Noeud.Fils[0]) , round( Evalue(Noeud.Fils[1])) ) else
    if Noeud.Operateur = 'longueur' then result:=length(Noeud.Fils[0].Operateur) else
    if Noeud.Operateur = '÷' then result:=Evalue(Noeud.Fils[0]) / Evalue(Noeud.Fils[1]) else
    if Noeud.Operateur = '%' then result:=Evalue(Noeud.Fils[0]) / 100                    else
    if Noeud.Operateur = '^' then result:=Power(Evalue(Noeud.Fils[0]),Evalue(Noeud.Fils[1])) else
    if Noeud.Operateur = 'sqrt' then result:=Sqrt(Evalue(Noeud.Fils[0]))                       else
    if Noeud.Operateur = 'log' then result:=Log10(Evalue(Noeud.Fils[0]))                       else
    if Noeud.Operateur = 'ln' then result:=ln(Evalue(Noeud.Fils[0]))                           else
    if Mode = degre then
    begin
      if Noeud.Operateur = 'arccos' then result:=Arccos(Evalue(Noeud.Fils[0]))*180/pi            else
      if Noeud.Operateur = 'arcsin' then result:=Arcsin(Evalue(Noeud.Fils[0]))*180/pi            else
      if Noeud.Operateur = 'arctan' then result:=Arctan(Evalue(Noeud.Fils[0]))*180/pi            else
      if Noeud.Operateur = 'cos' then result:=Cos(Evalue(Noeud.Fils[0])*pi/180)                  else
      if Noeud.Operateur = 'sin' then result:=Sin(Evalue(Noeud.Fils[0])*pi/180)                  else
      if Noeud.Operateur = 'tan' then result:=Tan(Evalue(Noeud.Fils[0])*pi/180);
    end else
    begin
      if Noeud.Operateur = 'arccos' then result:=Arccos(Evalue(Noeud.Fils[0]))            else
      if Noeud.Operateur = 'arcsin' then result:=Arcsin(Evalue(Noeud.Fils[0]))            else
      if Noeud.Operateur = 'arctan' then result:=Arctan(Evalue(Noeud.Fils[0]))            else
      if Noeud.Operateur = 'cos' then result:=Cos(Evalue(Noeud.Fils[0]))                  else
      if Noeud.Operateur = 'sin' then result:=Sin(Evalue(Noeud.Fils[0]))                  else
      if Noeud.Operateur = 'tan' then result:=Tan(Evalue(Noeud.Fils[0]));
    end;
  except
    on EAccessViolation do
    begin
      Error:='Erreur : pas assez de paramètres originaux pour la fonction ' + Noeud.Operateur;
      MessageDlg(error,mtWarning,[mbOK],0);
      raise;
    end;
 
    on EZeroDivide do
    begin
      Error:='Erreur : division par 0';
      MessageDlg(error,mtWarning,[mbOK],0);
      raise;
    end;
 
    on E:Exception do
    begin
      Error:='Erreur';
      MessageDlg(error,mtWarning,[mbOK],0);
      raise;
    end;
  end;
 
end;

**Papy214** · 19/06/2015, 17h37

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
except
  on EDivByzero do
      begin
        Error:='Erreur : division par 0';
        ShowMessage(Error);
      end;
  on E:Exception do
      begin
        Error:=E.Message;
        // Ne pas afficher l'erreur et  l'enregistrer quelque part
      end;
end;

**Basile le disciple** · 19/06/2015, 18h07

Parfait!!

merci beaucoup à vous 3 pour votre patience et pour la rapidité de votre réponse

Code :

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

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
41
42
43
44
 
function TArbre.Evalue(Noeud : TNoeud) : extended;
begin
  result:=0;
  if Error <> '' then Exit;
  try
    if Noeud.Operateur = 'c' then result:=Noeud.Value else
    if Noeud.Operateur = '(' then result:=Evalue(Noeud.Fils[0])                          else
    if Noeud.Operateur = '+' then result:=Evalue(Noeud.Fils[0]) + Evalue(Noeud.Fils[1]) else
    if Noeud.Operateur = '-' then result:=Evalue(Noeud.Fils[0]) - Evalue(Noeud.Fils[1]) else
    if Noeud.Operateur = '×' then result:=Evalue(Noeud.Fils[0]) * Evalue(Noeud.Fils[1]) else
    if Noeud.Operateur = 'random' then result:=random(round(Evalue(Noeud.Fils[0])))       else
    if Noeud.Operateur = 'int' then result:=int(Evalue(Noeud.Fils[0]))                    else
    if Noeud.operateur = 'variable' then result:=Evalue(Noeud.Fils[0])                   else
    if Noeud.Operateur = 'arrondi' then result:=roundTo( Evalue(Noeud.Fils[0]) , round( Evalue(Noeud.Fils[1])) ) else
    if Noeud.Operateur = 'longueur' then result:=length(Noeud.Fils[0].Operateur) else
    if Noeud.Operateur = '÷' then result:=Evalue(Noeud.Fils[0]) / Evalue(Noeud.Fils[1]) else
    if Noeud.Operateur = '%' then result:=Evalue(Noeud.Fils[0]) / 100                    else
    if Noeud.Operateur = '^' then result:=Power(Evalue(Noeud.Fils[0]),Evalue(Noeud.Fils[1])) else
    if Noeud.Operateur = 'sqrt' then result:=Sqrt(Evalue(Noeud.Fils[0]))                       else
    if Noeud.Operateur = 'log' then result:=Log10(Evalue(Noeud.Fils[0]))                       else
    if Noeud.Operateur = 'ln' then result:=ln(Evalue(Noeud.Fils[0]))                           else
    if Mode = degre then
    begin
      if Noeud.Operateur = 'arccos' then result:=Arccos(Evalue(Noeud.Fils[0]))*180/pi            else
      if Noeud.Operateur = 'arcsin' then result:=Arcsin(Evalue(Noeud.Fils[0]))*180/pi            else
      if Noeud.Operateur = 'arctan' then result:=Arctan(Evalue(Noeud.Fils[0]))*180/pi            else
      if Noeud.Operateur = 'cos' then result:=Cos(Evalue(Noeud.Fils[0])*pi/180)                  else
      if Noeud.Operateur = 'sin' then result:=Sin(Evalue(Noeud.Fils[0])*pi/180)                  else
      if Noeud.Operateur = 'tan' then result:=Tan(Evalue(Noeud.Fils[0])*pi/180);
    end else
    begin
      if Noeud.Operateur = 'arccos' then result:=Arccos(Evalue(Noeud.Fils[0]))            else
      if Noeud.Operateur = 'arcsin' then result:=Arcsin(Evalue(Noeud.Fils[0]))            else
      if Noeud.Operateur = 'arctan' then result:=Arctan(Evalue(Noeud.Fils[0]))            else
      if Noeud.Operateur = 'cos' then result:=Cos(Evalue(Noeud.Fils[0]))                  else
      if Noeud.Operateur = 'sin' then result:=Sin(Evalue(Noeud.Fils[0]))                  else
      if Noeud.Operateur = 'tan' then result:=Tan(Evalue(Noeud.Fils[0]));
    end;
  except
    on EZeroDivide do Error:='Erreur : division par 0';
    on EAccessViolation do Error:='Erreur : pas assez de paramètres originaux pour la fonction ' + Noeud.Operateur;
    on E:Exception do Error:='Erreur';
  end;

**sgmsg** · 19/06/2015, 20h21

Je trouve étrange que tu programmes une calculatrice mais que tu demandes au programme compilé de gérer les erreurs.

Autrement dit tu fais un interpréteur, mais en te déchargeant de la partie des cas hors limites.

Tu sais que division par zéro est interdite pourquoi tu ne testes pas avant?
Tu sais que le ln d'un négatif est interdit tu le laisse le gestionnaire du système s'en charger.

**Basile le disciple** · 19/06/2015, 20h40

Justement cela rajoutetait beaucoup de code : tester pour chaque fonctions si tous les noeuds existent bien, gérer tous les cas hors limites, je préfere faire comme ça, je n'oublierais aucune contrainte, le code sera plus lisible, les fonctions seront plus faciles à rajouter...

**edam** · 21/06/2015, 19h44

sous delphi 2010:
Outils > Options > Options du débogueur > Exceptions du langage

try except qui affiche quand même l'erreur

Delphi

Discussions similaires

Partager

Partager