这个语句错在那里？
procedure TForm1.Button1Click(Sender: TObject);
var a:Integer;
var b:Integer;
begin
screen.Cursor:=crHourglass;
try try
b:=0;
a:=1 div b;
finally
screen.Cursor:=crDefault;
end;
except
MessageDlg ('Error',mtError,[mbOK],0);
end;
end;
问题点数：20、回复次数：8Top
1 楼xywl（xywl）回复于 2006-03-13 15:02:59 得分 0
我想这个程序报错，可是就是不报错Top
2 楼cuteant（我这张旧床票还能否登上你的破床|涛声是否依旧）回复于 2006-03-13 15:07:42 得分 10
因为你没有使用a和b，编译的时候根本没有编译a:=1 div b;Top
3 楼liangqingzhi（老之）回复于 2006-03-13 15:07:49 得分 0
a没有被使用Top
4 楼xywl（xywl）回复于 2006-03-13 15:13:03 得分 0
那怎么让a b用起来？Top
5 楼cuteant（我这张旧床票还能否登上你的破床|涛声是否依旧）回复于 2006-03-13 15:17:41 得分 10
ShowMessage(IntToStr(a));Top
6 楼liangqingzhi（老之）回复于 2006-03-13 15:18:31 得分 0
随便加一句ShowMessage(IntToStr(a));之类的Top
7 楼liangqingzhi（老之）回复于 2006-03-13 15:18:53 得分 0
哈哈，答案都一样Top
8 楼cuteant（我这张旧床票还能否登上你的破床|涛声是否依旧）回复于 2006-03-13 15:21:07 得分 0
嘿嘿，老是在同样的时间同样的地点说同样的话，莫非这就是传说中的猿粪？Top
