跪问：关于一个循环语句，很简单的

Question

for i:=2 to 9 do
   begin 
      comboboxi:=editi.text; 
   end;
关键是comboboxi,editi 的写法不正确，怎样正确书写上面的那条循环句子啊 comboboxi:=edit.text

Answer 1

combobox.Item.add(XXX);  这个还要跪求  男儿膝下有黄金
------------------------------------------------------------------------------
金盆洗澡    重出江湖     打劫.抢分   掀起一场腥风血雨   戒烟攒钱 只为换新车

Answer 2

跪问只是为了搞笑的
可能你没有明白我的意思，也许是我没写清楚，应该是editi.text：＝comboboxi.text
即从２到９，将edit２.text:=combobox2.text;edit3.text:=combobox3.text;.......
用一个循环语句实现
combobox.Item.add(XXX);  这个语句会报错的

Answer 3

你是要把edit2edit9的内容都加到一个combobox里？还是
把edit2edit9分别加到combobox2bombobox9里啊？如果数量不多，单拿出来写吧，为什么非要用循环呢？

Answer 4

跳楼回答：如果非要循环，我觉得可以动态创建combobox＆edit的对象数组，然后就可以
edit【i】。text＝combobox【i】。text了吧哈哈哈，学习。。

Answer 5

其实我是想得到comboboxi的写法
当i=1时，　combobox1.......
当i=2时，　combobox2......
 ..         ..
当循环时候，i:=0 to N  comboboxi...

Answer 6

回复人： xixuemao(吸血猫) ( ) 信誉：100  2005-06-02 16:36:00  得分: 0  
 
 
   跳楼回答：如果非要循环，我觉得可以动态创建combobox＆edit的对象数组，然后就可以
edit【i】。text＝combobox【i】。text了吧哈哈哈，学习。。
  
 
怎么动态创建啊，哭求

Answer 7

标准答案闪亮登场procedure TForm1.Button1Click(Sender: TObject);
var I:integer;
begin
    for I:=2 to 9 then
    begin
        (form1.FindComponent('combobox'+IntToStr(I)) as TCombobox).Items.Add((form1.FindComponent('edit'+IntToStr(I)) as TEdit).Text);
    end;
end;
上面的就可以了...

Answer 8

我也郁闷啊，机子里还没有装delphi，没法给你测试。
你搜索一下动态创建控见的帖子，好多呢。不难！

Answer 9

或许应该是这样？？？
procedure TForm1.Button1Click(Sender: TObject);
var I:integer;
begin
    for I:=2 to 9 do
    begin
        (form1.FindComponent('combobox'+IntToStr(I)) as TCombobox).Text:=
        (form1.FindComponent('edit'+IntToStr(I)) as TEdit).Text;
    end;
end;
上面的那个do错写成了then
特此更正...

Answer 10

其实combobox在窗体上都有，只是想用循环来对每个combobox完成一定的功能

Answer 11

哭答：我都被你绕晕了，其实完全不用这种方式实现这个功能啊。大声哭！～～～～
如果你所谓的需要完成的功能很多，可以自己写一个function。然后就单个的调用，这个不存在效率问题吧好像！～ 鼻涕流！～～～

Answer 12

editarr: array[2..9] of TEdit;
comboboxarr: array[2..9] of TComboBox;循环使用前一定要把它们都create。你试试吧。呵呵！～我以前用java就是这么用的，但delphi没用过！

Answer 13

heluqing(鉴之小河〖挣大钱娶美女〗) 
已经帮我解决问题了

Answer 14

晕，FindComponent的效率好像才低啊！朋友！遍历你form上的控件。唉！～

Answer 15

to 小河：  procedure TForm1.Button1Click(Sender: TObject);
  begin
    form1.XXX
  end;
这个习惯可不好，记的要改哈 :)

Answer 16

for i:=2 to 9 do
   begin 
      Tcombobox(findcomponent('combobox'+str(i))).text:=Tedit(findcomponent('edit'+str(i)).text; 
   end;