delphi如何向combobox的items里添加内容？

从问题描述来看，推测可能是 ComboBox 的动态设置问题。

示例代码如下：

procedure TForm1.Button1Click(Sender: TObject)

begin

  ComboBox1.Clear

  ComboBox1.Items.Add('标题1')

  ComboBox1.Items.Add('标题2')

end

运行截图：

插入数据:

ComboBox1.Items.CommaText := 'a,b,c'

查询数据:

procedure TForm1.ComboBox1Change(Sender: TObject)

begin

case ComboBox1.ItemIndex of

0:xxx // 显示a对应的下拉菜单

1:xxx // 显示b对应的下拉菜单

2:xxx // 显示c对应的下拉菜单

end

end

combobox的下拉框的内容，可以通过

combobox.items.add('A')

combobox.items.add('B')

combobox.items.add('C')

combobox.items.add('D')添加。

combobox.itemindex为下拉的选项位置。

如果combobox.text是录入的，可以使用combobox.Items.indexof(combobox.text)获取内容在下拉选项的位置,用combobox.itemidex := combobox.Items.indexof(combobox.text)。达到你说的 同时要求查询的时候，对应值为A,B,C,D的时候，combobox的itemindex的值分别为0，1,2,3 的要求

---