| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 598 人关注过本帖
标题:关于计算器的求助
只看楼主 加入收藏
aaron52088
Rank: 1
等 级:新手上路
帖 子:130
专家分:0
注 册:2007-1-24
收藏
 问题点数:0 回复次数:3 
关于计算器的求助

我做的一个很简单的过程calculate作为计算费用的,
在edit3.text中输入数字后,和edit6.text的相乘,
结果保留在editlsvalue.text中。


在implementation里写了这么一个过程,程序如下:
procedure Caculate(x,y,z:integer);
begin
z:=x*y;
end;


在button1里面调用该过程,程序如下:
procedure TForm2.BitBtn10Click(Sender: TObject);
var number1,number2,result:integer;
begin
number1:=strtoint(edit3.Text);
number2:=strtoint(edit6.Text);
caculate(number1,number2,result);
editlsvalue.Text:=inttostr(result);
end;

为什么计算出来的结果都是0呢?
大家帮忙下,谢谢

搜索更多相关主题的帖子: 计算器 
2007-02-06 16:02
xu2000
Rank: 9Rank: 9Rank: 9
等 级:贵宾
威 望:51
帖 子:3890
专家分:56
注 册:2006-4-8
收藏
得分:0 
你写的是过程又不是函数,哪有返回值。
function Caculate(x,y:integer):integer;
begin
result:=x*y;
end;

procedure TForm2.BitBtn10Click(Sender: TObject);
var number1,number2,result:integer;
begin
number1:=strtoint(edit3.Text);
number2:=strtoint(edit6.Text);
editlsvalue.Text:=inttostr(caculate(number1,number2));
);
end;


我会拿出我全部的钱财,以保你衣食无忧。我会献出我所有的智慧,以助你一帆风顺。我会想到所有的笑语,以令你展眉开颜。我会挤出最长的时间,以使你终生幸福。        [本人原创的结婚宣言]
2007-02-06 16:56
aaron52088
Rank: 1
等 级:新手上路
帖 子:130
专家分:0
注 册:2007-1-24
收藏
得分:0 
嗯,犯了个笨笨的错误,
谢谢你啦

2007-02-07 11:05
nongen
Rank: 5Rank: 5
来 自:网络
等 级:贵宾
威 望:17
帖 子:322
专家分:0
注 册:2006-11-25
收藏
得分:0 
procedure Caculate(x,y:integer;var z:integer);
begin
z:=x*y;
end;

昨天不是我的,明天不是你的,今天却是我们的。
http://www.
2007-02-08 08:50
快速回复:关于计算器的求助
数据加载中...
 
   



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

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