向tcombobox的控件中添加值，该怎么解决

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。你都创建完控件了，添加数据不很简单吗。你是还有什么要求吗

不太明白你说的意思，

listView1.Items.Add(dr[1].ToString())

listView1.Items[i].SubItems.Add(dr[2].ToString())

同listView显示数据好像不是这样。

首先创建一个listView项

ListViewItem

lvi1=new

ListViewItem()

再向ListView中添加一个新项

ListView.Items.Add(lvi1)

想当前项中添加子项

lvi1.SubItems.AddRange(dr["列名"].ToString())

---