Discussion :

[gaston11]

Bonsoir

encore moi...

voilà j'essaye de gérer les erreurs dans mon code mais ca ne marche pas,

si une erreur de conversion (StrTonInt) ou de calcul (division par zéro)
la gestion ne marche pas,
j’obtiens toujours le message de plantage standard erreur projet1.exe..... EzeroDivide... etc!.

si je relance le projet une deuxième fois par f9 , là j’obtiens le bon message attendu!
voici l'extrait de code de test:

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
 
procedure TForm1.CalculClick(Sender: TObject);
var a,b : real;
 begin
     b := 2;
     try
       a := StrToInt(edit1.text);//Ici, on peut tomber sur
		//des valeurs bizarres (lettres) dans le TEdit
        b := b / a;  //Ici, on peut avoir une division par 0
    except
       on EConvertError do ShowMessage('La valeur entrée est incorrecte!');
       on EDivByZero do ShowMessage('Vous avez entré une valeur nulle!');
 
     on  EOverflow  do  ShowMessage('erreur2');
     on  EMathError  do  ShowMessage('erreur3');
  else
    ShowMessage('Autres..');
  end ;
    affichage.Lines.Add(format('%.3f', [ b])) ;
end;

je ne trouve pas d'Explication.

merci!

[tarekk73]

bon jour
c'est normale par ce que vous éte sur delphi et vous travailez avec votre programme
Essayez directement le fichier EXE 'Project1.exe' compiler par delphi et ça va marcher
bon courage

[Charly910]

Oui Tarekk73 a raison. C'est quand tu exécutes directement ton appli, hors de l'IDE que tu verras tes exceptions se déclencher.

En plus il faut que tu utilises StrToFloat plutot que StrToInt car a est un réel et non un entier

A+

Charly

[ShaiLeTroll]

Dans l'IDE, il faut bien faire la différence entre "Notification du Déboggueur" et l'Exception réelle
En Debug, tu as donc deux messages (Notification + Réelle)
En Run simple, tu as un seul message (Réelle)

[gaston11]

le ballot que je fais!!!!!!

merci a tous !! effectivement ca marche depuis l'exe!!!