bonjour à tous
j'ai ecris cela sous delphi:
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;
si je clique sur le boutton il m'affiche rien.
aider moi svp.
Merci d'avance