Question

Delphi向ComboBox添加数据 过程中的一个问题

for I := 1 to 6 do
with TComboBox.Create(self) do begin
Name :='jb_xx1_' + InttoStr(I);
Parent := Self.TabSheet2;
Top := 27*(i-1)+3 ;
Left := length(jb_txt[i])*6+30 ;
Height := 2;
font.Name := 'Arial';
font.Size :=8;
show;
end;
//上面代码是动态向程序界面添加了TComboBox，现在的问题是 > 动态添加了TComboBox后如何再向TComboBox里面添加数据？

Answer 1

for I := 1 to 6 do
with TComboBox.Create(self) do begin
Name :='jb_xx1_' + InttoStr(I);
Parent := Self.TabSheet2;
Top := 27*(i-1)+3 ;
Left := length(jb_txt[i])*6+30 ;
Height := 2;
font.Name := 'Arial';
font.Size :=8;
// 添加数据
for j:1 to ADOQuery1.RecordCount do
begin
Items.Add(ADOQuery1.FeildByName('comboboxItems').AsString);
end;
// 添加结束，将默认显示设为显示第一项
ItemIndex := 0;

show;
end;

上面是从数据库读取数据添加（记得打开和关闭连接就行）。要是有固定的值就更简单了，直接添加就OK。你都创建完控件了，添加数据不很简单吗。你是还有什么要求吗

追问

兄台很感谢你，我现在遇到困难是这样的

Name :='jb_xx1_' + InttoStr(I);
现在动态创建了这些菜单，我需要向这些菜单中添加内容，这些内容都是数组的形式的，怎么办

追答

// 添加数据
for j:=1 to High(ValuesArray) do
begin
Items.Add(ValuesArray[j-1]);
end;
// 添加结束，将默认显示设为显示第一项
ItemIndex := 0;

是这个意思吧，也不难啊。。 用High函数求数组个数和ValuesArray[j-1]是默认情况（下标值从零开始）的情况下。
不是从零就High(ValuesArray)-Low(ValuesArray)+1。。。 ValuesArray[ j ]