盒子论坛 v2.1

在panel1上有80个edit，还有20个button。

第一、如何把80个edit的text的值相加？
第二、如何能单击任意一个button，就showmessage出这个button的Caption值？
----------------------------------------------

作者：

babyluoyi (赵子龙)	★☆☆☆☆	-
	盒子活跃会员

2003/6/29 14:08:13

1楼：

（-）如果是字符型就真相加
数值型就要通过类型转换！
（二）在这二十个button的每个的click中都：
showmessage(button?.caption);
如果你想把这么多的控件（edit1.text）都用一个函数来控制，可以自定义函数
----------------------------------------------
好好学习，天天向上！

作者：

tianyu717 (-=剑心=-)	★☆☆☆☆	-
	盒子活跃会员

2003/6/29 15:40:06

2楼：

一、直接相加我也会，我想要的是如何通过FOR语句把他们加起来，谢谢。
　　不然不累死才怪。
二、就是想要二十个BUTTON用一个过程。但我不知道怎么写。所以还请大
　　侠给写出代码来。
----------------------------------------------

作者：

linker (小心)	★☆☆☆☆	-
	盒子活跃会员

2003/6/30 8:59:04

3楼：

  public
    { Public declarations }
    Edit:array [1..5] of TEdit;  //假如有五个EDIT,你也可以改成更多
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  s:string;
  i:integer;
begin
  for i:=1 to 5 do s:=s+edit[i].Text;
  showmessage(s);
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  i:integer;
begin
  for i:=1 to 5 do  //建立五个EDIT
  begin
    edit[i]:=tedit.Create(self);
    edit[i].Parent:=form1.Panel1;
    edit[i].Left:=10;
    edit[i].Top:=20*i;
    edit[i].Text:='Edit'+inttostr(i);
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  showmessage((sender as tbutton).Caption);  //问题二,显示BUTTON的CAPTION
end;

end.

----------------------------------------------

作者：

tianyu717 (-=剑心=-)	★☆☆☆☆	-
	盒子活跃会员

2003/6/30 15:06:39

4楼：

非常感谢linker (小心)。
但edit不是动态生成的，　如何用把它们的TEXT加起来。

----------------------------------------------

作者：

linker (小心)	★☆☆☆☆	-
	盒子活跃会员

2003/6/30 16:07:06

5楼：

public
    { Public declarations }
    Edit:array [1..5] of TEdit;  //假如有五个EDIT,你也可以改成更多
  end;

在FORM的Creat里：
  edit[1]:=edit1;
  edit[2]:=edit2;
    .........
  edit[5]:=edit5;
定义过后，后边就可以用for来进行累加了.
如还不清楚，请QQ联系。172081142
----------------------------------------------

作者：

ldyocean (ldyocean)	★☆☆☆☆	-
	盒子活跃会员

2003/6/30 16:14:25

6楼：

做遍历吧，如果panel上只有80个edit就简单了，如果还有别，大不了把tag值改改，加个判断条件

----------------------------------------------
-

作者：

linker (小心)	★☆☆☆☆	-
	盒子活跃会员

2003/6/30 17:36:52

8楼：

高招!!!
不过好像影响效率.不过不是值得小弟我学习的了.
----------------------------------------------

作者：

tianyu717 (-=剑心=-)	★☆☆☆☆	-
	盒子活跃会员

2003/7/1 1:29:23

9楼：

贝贝11 贝贝11贝贝11贝贝11　真是好宝贝
非常感谢，我就是要这样的。　以前有人给过我。可惜我没有珍惜，
所以才来这里麻烦各位，现在终于找到了。我会对你说，谢谢你。

同时也谢谢　小心　给我的帮助

----------------------------------------------

信息

登陆以后才能回复