ComboBox控件中添加数据库中字段

cbb1.Text:=cbb1.Items.Strings[0]; //给ComBoBox设置默认值

将数据库name的内容添加到ComboBox1列表
procedure TForm1.ComboBox1DropDown(Sender: TObject);
var
 i : integer;
begin
 ComboBox1.Clear;
 ADOQuery1.Close;
 ADOQuery1.SQL.Clear;
 ADOQuery1.SQL.Add('Select name from biao1');
 ADOQuery1.Open;
 if ADOQuery1.RecordCount>0 then
 begin
  for i:=0 to ADOQuery1.RecordCount-1 do
  begin
   ComboBox1.Items.Add(ADOQuery1.FieldByName('name').AsString);
   ADOQuery1.Next;
  end;
 end;
end;

添加数据库中字段内容到ComboBox
procedure TForm1.FormCreate(Sender: TObject);
var
 i : integer;
begin
 ADOQuery1.Close;
 ADOQuery1.SQL.Clear;
 ADOQuery1.SQL.Add('select * from biao1');
 ADOQuery1.Open;
 Combobox3.Clear;
 for i:=0 to ADOQuery1.FieldCount-1 do
 begin
  ADOQuery1.First;
  combobox3.Items.Add(ADOQuery1.Fields[i].FieldName);
  ADOQuery1.Next;
 end;
 Combobox3.ItemIndex := 0;
end;

procedure TMainFr.AddDropdown(const findstr: string);   //给combobox添加下拉菜单
var
  list: TStringList;
  i, k: Integer;
begin
  try
    list := TStringList.Create;
    list.LoadFromFile(runstr); //runstr为一个变量，值是文件的路径
    for i := 0 to list.Count - 1 do
    begin
      k := Pos('@', list[i]);
      if Pos(findstr, Copy(list[i], 1, k)) > 0 then
      begin
        ComboBox1.Items.Add(list[i]);
      end;
    end;
  finally
    list.Free;
  end;
end;