长大的幸福 发表于 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 static/image/common/back.gif
楼主，我看了你的源代码，这段代码不是很明白，希望楼主抽时间解释一下，真的非常感谢。

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 static/image/common/back.gif
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！！
页: 1 [2]
查看完整版本: 最新版计算器