在下有个小问题请各位前辈专家帮忙，进者有分。

Question

首先得在public中声明几个全局变量用来保存checklistbox1中的内容，然后在另外一个form中引用，在写进dbgrid中

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
 i,p:integer;
begin
p:=0;
dbgrid1.Columns.Clear;for i:=0 to checklistbox1.Items.Count-1 do begin
  if checklistbox1.checked[i] then  begin
    dbgrid1.Columns.Add;
    dbgrid1.Columns[p].fieldname:=checklistbox1.Items.strings[i];//假设都为列名
    inc(p);
  end;
end;end;