printStackTrace version Delphi

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:

---

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.

tu peux essayer ça :

Code:

---

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:

---

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

---

Bon courage

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

Code:

---

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)

---

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:

---

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;

---

Merci waskol,
A+