关于大批量同类型有规则命名的控件的初始化！急！！！(200分)

R

rainbow_57

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-27

• #1

我现在要对15个Combox控件加入Items，他们的命名为：cb0,cb1,cb2...
我在操作的时候用TCombox('cb'+inttostr(i))，i是循环变量，但是不行。
哪位老大，帮我想想办法。千万别要我一个个加啊！

 

R

rockjie

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-27

• #2

好像应该写
for ..... do
TCombox(componentname(''+i)).item.add吧！

TCombox('cb'+inttostr(i))这么写不报错嘛？

还有，你说的加入是什么个意思？再详细点啊

 

W

windwy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-27

• #3

for i := 0 to form1.ControlCount - 1 do
Tcombobox(form1.Controls).items.add

 

R

rockjie

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-27

• #4

对不起刚刚写错了：）
form1.Controls肯定不好！
form1.components真的比较好，我以前习惯用Controls，可后来改成component了[]

 

W

wallis

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-27

• #5

可以设定一个数组，类型是TCombox.
var combox:array [0..14] of TCombox;
在初始化：
combox[0]:=cb0;
combox[1]:=cb1;
......
......
combox[14]:=cb14;
以后的一切操作就是对数组操作
For i:=0 to 14 do
TCombox(combox).item.add();

 

R

rainbow_57

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-27

• #6

我说的是要对16个Combox控件加下拉筐中的内容。控件命名分别为cb0,cb1,cb2..cb15。
Lockyjie的方法好像不行的。
下面的几个正在试

 

R

rainbow_57

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-27

• #7

多人接受答案了。