Discussion :

[Soulama]

Salut,
dans le langague Java, on peut faire un printStackTrace pour voir les details dune exception.
je veux bien savoir si ya la meme schose avec Delphi 7.
jai essayé le Code suivant:

Code :

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

1
2
3
4
5
 
Try
except on E: Exception do
   showmessage(E.message);
end ;

mais c pas suffisant, ca donne toujours une forme general de lexception.

[LadyWasky]

tu peux essayer ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
procedure TForm1.btn1Click(Sender: TObject);
var r,v1,v2:real;
begin
  Try
    v1:=StrToFloat(edit1.text);
    v2:=StrToFloat(edit2.text);
    r:=v1/v2;
    label1.Caption:=FloatToStr(r);
  except on E: Exception do
   showmessage(E.ClassName);
  end ;
end;

Dans ma fiche, j'ai mis deux TEdit, 1 Bouton, et 1 Label pour l'affichage du résultat
Si dans les TEdits, je n'ai pas tapé des réels (du texte par exemple), c'a affiche EConvertError

Si je fait une division par 0 : EZeroDivide

tu peux combiner le message d'erreur et le type d'erreur comme ça par exemple :

Code :

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

1
2
 
showmessage(E.ClassName+' : '+E.Message);

Bon courage

[Soulama]

Salut,
ya pas moyen de savoir quelles lignes dans le code ou c passé lexception:
exemple de Java:

Code :

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

1
2
3
4
5
 
 java.lang.NullPointerException
         at MyClass.mash(MyClass.java:9)
         at MyClass.crunch(MyClass.java:6)
         at MyClass.main(MyClass.java:3)

[LadyWasky]

ha non, là je crois que c'est impossible parce que un programme Delphi est compilé, pas un programme Java.

Par contre, ce que tu peux faire, c'est entre tes lignes écrire un truc du style :

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
 
procedure TForm1.btn1Click(Sender: TObject);
var r,v1,v2:real;
     ligne:integer;
begin
  Try
    ligne:=1;
    v1:=StrToFloat(edit1.text);  //ligne 1
    inc(ligne);
    v2:=StrToFloat(edit2.text);   //ligne 2
    inc(ligne);
    r:=v1/v2;   //ligne 3
    inc(ligne);
    label1.Caption:=FloatToStr(r);   //ligne 4
  except on E: Exception do
   showmessage(E.ClassName+' ligne : '+inttostr(ligne));
  end ;
end;

[Soulama]

Merci waskol,
A+