delphi combobox列表动态添加数据库列表方法，使用clientdataset查询

清除combobox

查询数据到Clientdataset

然后使用FOR循环读取 CDS里面的数据并且赋值到combobox里面

例如

for    i:=0 to tmpcds.recordcount do

begin

combobox1.items.add( tmpcds.fieldbyname('字段名').value)

end

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

示例代码如下：

procedure TForm1.Button1Click(Sender: TObject)

begin

  ComboBox1.Clear

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

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

end

运行截图：

---