关于combobox组件的使用

Question

在向COMBOBOX加数据时，先combobox1.items.Clear;
query1.close;
query1.sql.clear;
query1.sql.add();
query1.open;combobox1.items.Clear;
while not query1.eof do
begin
  combobox1.items.append(query1.fields[0].asstring);
  query1.next;
end;
query1.close;

Answer 1

with adoquery1 do
    begin
      close;
      sql.Clear;
      sql.Add('select bjxx.class from xsgl..bjxx');
      open;
      first;
  while not eof do
      begin
      combobox2.Items.Add(adoquery1.fieldbyname('class').AsString);
      next;
      end;
    end;
    with adoquery1 do
    begin
      close;
      sql.Clear;
      sql.Add('select * from xsgl..xsjbxx');
      open;
    end;
end;