还有一个问题是:异常处理的: procedure tform1.buttonc1lick(sender:tobject); var a:integer; b:integer; begin a:=0; try b:=10 div a; //edit1.text:=inttostr(b); except
on e: xxxxx do showmessage(e.message); end; end; 这里出现的问题是,当单击buttion1,如果没有语句edit1.text:=inttostr(b);则不出现异常,加上语句edit1.text:=inttostr(b);单击buttion1,就会出现异常,这是为什么?还有虽然我对异常进行了处理,为什么还是会出现(弹出):和不处理一样的信息),还有你必须再运行才会出现 e.message的内容。是不是用安装程序安装了,就不会现在这样的情况。