用TQuery江某个字段的值全部加入TCombobox到里怎样写呀？

Question

用TQuery江某个字段的值全部加入TCombobox到里怎样写呀？

Answer 1

var
bb:stringQuery1.First;
while not Query1.Eof do
begin
  bb :=  Query1.FieldByName('field').AsString;
  ComboBox1.Items.Add('bb');
  next;
  end;

Answer 2

Query1.close;
Query1.sql.clear;
Query1.sql.add('select * from Tbl_YourTblName');
Try
  Query1.open;
  while not Query1.eof do
    begin
      cbYourCBName.items.add(Query1.fieldbyname('Your Field Name').asDateType);
      Query1.next;
    end;
except
  YourDear;
end;