bonjour à tous
j'ai ecris cela sous delphi:
si je clique sur le boutton il m'affiche rien.
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.Button1Click(Sender: TObject); var i,j:integer; begin j:=0; i:=1; try i:=i div j; except on E:Edivbyzero do begin showmessage('Nom de l''objet ayant provocqué l''exeption: '+Self.ClassName+ Form1.ClassName à la place de Self.ClassName #13+'Nature de l''exeption: '+E.Message+ #13+'exeption survenue à l''adresse: '+ Format('%p',[ExceptAddr])); end; end; end;
aider moi svp.
Merci d'avance
Partager