如何将表中某一字段的值加入到一下下拉表中？

Question

比如我们现在用一Query和Combobox来实现。
  Query1.Close;
  query1.sql.clear;
  Query1.sql.add('select 字段 from 表);
  try
    Query1.open;
  except
    Query1.ExecSQL;
  end;
  while not Query1.Eof do
  begin
    combobox1.Items.Add(Query1.Fields[0].AsString) ;
    query1.Next ;
  end;
  combobox1.ItemIndex :=-1;

Answer 1

table1.open;table1.first;
while not table1.eof do
begin
  combobox1.items.add(table1.findfield('name').asstring);  table1.next;
end;