怎么将table1数据库的所有字段增加combobox1中。

Question

用Fields集合啊，可能是叫这个名称吧，记不清了Fields[0].FieldName等等了，
多看看Delphi的帮助吧，这样的问题怎能成为问题呢！

Answer 1

with query1 do
begin
  first;
  while not eof do
  begin
    Combobox1.Items.append(FieldValues['字段名']);
    next;
  end;
end;

Answer 2

var i:integer;
begin
  ComboBox1.Items.Clear;
  for i:=0 to Table1.FieldDefs.Count-1 do
    combobox1.Items.Add(table1.FieldDefs.Items[i].Name);

Answer 3

var i:integer;
begin
  ComboBox1.Items.Clear;
  for i:=0 to Table1.FieldDefs.Count-1 do
    combobox1.Items.Add(table1.FieldDefs.Items[i].Name);

Answer 4

query1.open;
combobox1.Items.Assign(query1.fieldlist);
query1.close;

Answer 5

其实一般情况下不需要这样做。用DBLookupCombobox不就可以了吗？
自己手工加入Combox是很慢的。