| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1253 人关注过本帖
标题:小弟初学delphi,应书中要求,写下一计算器,请指教
只看楼主 加入收藏
tony_mt
Rank: 1
等 级:新手上路
帖 子:5
专家分:0
注 册:2011-10-21
收藏
 问题点数:0 回复次数:4 
小弟初学delphi,应书中要求,写下一计算器,请指教
计算器.rar (273.83 KB)
如题,不过程序中肯定BUG十足,我自己也发现几个BUG,不过我不知道如何修改了。
 
比如:我定义的是实数,可是我无法限定按钮的输入次数。导致出现超过范围的BUG
           还有就是当点击了运算符的时候,直接按计算,也会出现BUG,可是我不知道怎么判断了。
 


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

源码在此。
 
搜索更多相关主题的帖子: 计算器 如何 
2011-10-21 00:30
tony_mt
Rank: 1
等 级:新手上路
帖 子:5
专家分:0
注 册:2011-10-21
收藏
得分:0 
初来咋到,请各位帮忙解答一下。

谢谢。

2011-10-21 00:32
tony_mt
Rank: 1
等 级:新手上路
帖 子:5
专家分:0
注 册:2011-10-21
收藏
得分:0 
难道偌大一个论坛就没有人来帮一下忙吗?

200多会员在线, 诶。

原以为在这里能学到点什么, 太失望了。
2011-10-21 21:21
北国蚂蚁
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2011-12-5
收藏
得分:0 
大家都在忙哩 神马不会找度娘 很犀利的
2011-12-05 16:49
yuutian
Rank: 7Rank: 7Rank: 7
等 级:黑侠
帖 子:137
专家分:686
注 册:2010-10-27
收藏
得分:0 
你自己写的也太简单的。加上几个异常处理判断就可以做到。
程序代码:
假设溢出位设定为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;

你自己可以尝试其他的方法。
2011-12-23 13:49
快速回复:小弟初学delphi,应书中要求,写下一计算器,请指教
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.018144 second(s), 10 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved