纳闷.除数可以是0的变量标识符?

Question

大家好.请问一下
procedure TForm1.Button1Click(Sender: TObject);
var
i,j,k:integer;
begin
i:=9;
j:=0;
try
k:=i div j;
except
on edivbyzero do
messagedlg('发现除数为0',mterror,[mbok],0);
end;
end;
.这样运行单击按钮时,并不会出错;  j 都是0了.为何运行了还给予通过呢.这点有点纳闷....不是说除数不能为0吗..头疼死了.今晚早点睡觉..

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
i,j,k:integer;
begin
i:=9;
j:=0;
try
k:=i div j;
ShowMessage(IntToStr(k));
except
on edivbyzero do
messagedlg('发现除数为0',mterror,[mbok],0);
end;
end;加上ShowMessage(IntToStr(k));
你这个是典型的被编译器优化掉了。