各位大侠帮帮我？(50分)

请讲一异常处理的常用方法并帮我看看这段代码
procedure TForm1.Button1Click(Sender: TObject);
function chenlu(a,b:integer):integer;
begin
try
result:=a div b;
except
result:=0;
end;

end;
var
ccc:integer;
begin
ccc:=chenlu(strtoint(edit1.text),strtoint(edit2.text));
edit3.Text:=inttostr(ccc);
end;
为什么我无法得到错误处理，当我的除数为0时

那显示的是什么？

你的处理中并没有这么要求阿!
可以这样！
procedure TForm1.Button1Click(Sender: TObject);
function chenlu(a,b:integer):integer;
begin
try
result:=a div b;
except
result:=0;
end;

end;
var
ccc:integer;
begin
ccc:=chenlu(strtoint(edit1.text),strtoint(edit2.text));
if edit2.text='0' then
showmessage('除数不能为零');
exit;
edit3.Text:=inttostr(ccc);
end;

多人接受答案了。