为何没有错误提示？(50分)

procedure TForm1.Button1Click(Sender: TObject);
var
i,j:integer;
begin
i:=0;
j:=1;
j:=j div i;
end;

因为i,j并没有实际使用,程序运行时没有执行j:=j div i,所以不报错,如果你加上一句:
showmessage(inttostr(j));就会出现异常.

因为在你的代码中j没被使用，所以在Delphi优化时就没有编译这几条语句，所以j:=j div i根本没有执行，
当然没有错误提示。改成这样就有错误提示了
procedure TForm1.Button1Click(Sender: TObject);
var
i,j:integer;
begin
i:=0;
j:=1;
j:=j div i;
showmessage(inttostr(j));
end;
或者把Compiler中的Optimization前的勾去掉，让Delphi不进行优化，也可出现错误提示。

多人接受答案了。