如何把GBGRID中的一个COLUMN中的内容依次存入一个Tstrnglist?

[cultra]

我的组件是 ADOSOURCE，ADOQUERY，DBGRID

[cultra]

up,一定给分，。。。

[敏捷的尤金]

你可以在ADOQUERY打开时向TSTRINGLIST中添加不行么？

[cultra]

能否给出具体代码

[WuHeHai]

来个遍历不就行了嘛！
var
slColumn: TStringList;
begin
slColumn := TStringList.Create;
with ADOQuery do begin
DisableControls;
First;
while no Eof do begin
slColumn.AddString(Column.Field.DislayText);
Next;
end;
Enablecontrols;
end;

[cultra]

好象编译不能通过。

[cultra]

有没有具体可用的代码。

[kuangning]

var
stringlist: TStringList;
begin
stringlist := TStringList.Create;
with ADOQuery1 do begin
First;
while not Eof do begin
stringlist.Add(DBGrid1.Fields[0].DisplayText);
Next;
end;
end;
end ;