如题，不过程序中肯定BUG十足，我自己也发现几个BUG，不过我不知道如何修改了。
 
比如：我定义的是实数，可是我无法限定按钮的输入次数。导致出现超过范围的BUG
           还有就是当点击了运算符的时候，直接按计算，也会出现BUG，可是我不知道怎么判断了。
 


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

源码在此。
 

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

谢谢。

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

200多会员在线， 诶。

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

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

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

假设溢出位设定为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;

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