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

Question

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

Answer 1

来个遍历不就行了嘛！
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;

Answer 2

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 ;