delphi中如何做到把一个数据库中的某个字段读到combox中去？

Question

procedure ReadIntoCom;
begin
  ADOQryCom.close;
  ADOQryCom.sql.clear;
  ADOQryCom.sql.add（'select * from  '）；
  ADOQryCom.open;
  WHILE NOT adoqRYcOM.EOF DO
  BEGIN
    COM.items.add();
    ADOQryCom.next;
  END;
end;

Answer 1

procedure ReadIntoCom;
begin
  ADOQryCom.close;
  ADOQryCom.sql.clear;
  ADOQryCom.sql.add（'select * from  '）；
  ADOQryCom.open;
  WHILE NOT adoqRYcOM.EOF DO
  BEGIN
    COM.items.add();
    ADOQryCom.next;
  END;
end;