最新版计算器

长大的幸福 · 发表于 2012-6-24 19:48:17

楼主，我看了你的源代码，这段代码不是很明白，希望楼主抽时间解释一下，真的非常感谢。

这段代码不是很清楚，希望楼主解释一下，非常感谢了。

゛゛不过如此. · 发表于 2012-6-24 21:28:43

:D哇，楼主好厉害哇。

♀beyond㊣ · 发表于 2012-6-24 22:15:46

长大的幸福发表于 2012-6-24 19:48

登录/注册后可看大图

楼主，我看了你的源代码，这段代码不是很明白，希望楼主抽时间解释一下，真的非常感谢。

if Length(Edit1.Text)> 40 then          //表示最多只能输入40个字符
      MessageBeep(MB_OK)
else
begin
if OK =1 then                               //当已经计算了结果就把上次的结果和数字全部清除，重新开始新的一轮计算
   Edit1.Text:='';
Edit1.Text:=Edit1.Text +'1';
end;
OK:=0;

木头鱼小柯 · 发表于 2012-6-24 22:31:27

不错不错，楼主威武

长大的幸福 · 发表于 2012-6-25 08:56:43

♀beyond㊣发表于 2012-6-24 22:15

登录/注册后可看大图

if Length(Edit1.Text)> 40 then //表示最多只能输入40个字符
MessageBeep(MB_OK) ...

MessageBeep(MB_OK);
这句话是什么意思呢?楼主。

♀beyond㊣ · 发表于 2012-6-25 19:58:43

响一声蜂鸣器。

悠悠清风 · 发表于 2012-7-21 09:49:37

拿走源码，学习一下

飘着的云彩 · 发表于 2012-7-21 10:15:25

看着不错呀!

收藏点滴 · 发表于 2012-7-23 10:00:38

不错围观中！有点羡慕！继续奋斗，

陽光ㄟ有點冷 · 发表于 2012-7-23 13:05:05

BUG很多啊，呵呵~~~~~~

小J · 发表于 2012-10-19 19:55:11

谢谢你，用你的程序给本科生学习软件测试。

cyrs · 发表于 2014-8-26 19:50:27

好东西要支持

蓝鹰 · 发表于 2014-8-26 23:22:22

{:1_1:}

cyrs · 发表于 2014-10-3 14:36:07

谢谢分享

cady · 发表于 2014-10-4 11:41:18

我也要学delphi！！

账号		自动登录	找回密码
密码			立即注册

[原创] 最新版计算器

浏览过的版块