把DBGrid中的所有列名全加在ListBox中怎么写？

Question

如上。

Answer 1

var
 i:integer;
 a:TStringList;
 
begin
 a:=TStringList.Create;
 table1.Open;
 for i:=0 to table1.RecordCount-1 do
 begin
     a.Add(table1.FieldValues['name']);
     table1.Next;
 end;
 dbgrid1.Columns[1].PickList:=a;
 a.Free;

Answer 2

不是啊，我是想把DBGrid中的每列的列头名字列在listbox中，不是列值，而且我用的是adoquery，开始时是没有字段的，我是在运行初期用代码加进去的，设计时都是空的。

Answer 3

这样对不对
var 
  i:integer;
for i:=0 to dbgrid1.fieldcount-1 do
begin   listbox1.items.add(dbgrid1.fields[i].displayname
end;