Question

delphi中在checklistbox控件里如何显示表字段，把代码也告诉我哦

Answer 1

假设数据库连接好，使用的数据表为 ADOTable1，则代码如下：

procedure TForm1.btn2Click(Sender: TObject);
begin
ADOTable1.GetFieldNames(CheckListBox1.Items);
end;

Answer 2

把数据源设为：
select name from syscolumns where id in (select id from sysobjects where name = '你的表名')