小弟初学delphi，应书中要求，写下一计算器，请指教

tony_mt 发布于 2011-10-21 00:30， 1265 次点击

只有本站会员才能查看附件，请登录

如题，不过程序中肯定BUG十足，我自己也发现几个BUG，不过我不知道如何修改了。

比如：我定义的是实数，可是我无法限定按钮的输入次数。导致出现超过范围的BUG
还有就是当点击了运算符的时候，直接按计算，也会出现BUG，可是我不知道怎么判断了。

如今请教各位童鞋，老是，希望各位予以指教。

感激不尽。

源码在此。

4 回复

tony_mt2011-10-21 00:32

初来咋到，请各位帮忙解答一下。

谢谢。

tony_mt2011-10-21 21:21

难道偌大一个论坛就没有人来帮一下忙吗？

200多会员在线，诶。

原以为在这里能学到点什么，太失望了。

北国蚂蚁2011-12-05 16:49

大家都在忙哩神马不会找度娘很犀利的

yuutian2011-12-23 13:49

你自己写的也太简单的。加上几个异常处理判断就可以做到。

程序代码：

假设溢出位设定为8位。
procedure TForm1.Button1Click(Sender: TObject);
begin
edit1.text:=edit1.text+'1';
if(edit1.text='11111111') then
showmessage('数据溢出');
if(edit1.Text>'11111111') then
edit1.Text:='1111111';

end;

你自己可以尝试其他的方法。