Delphi控件cxGrid 如何动态创建列?

方法一：

var i: Integer;
  Column: TcxGridDBColumn;
  cxView: TcxGridDBTableView;
begin
  cxView := Self.Levels[].GridView as TcxGridDBTableView;
  if cxView.DataController.DataSource <> nil then
    if cxView.DataController.DataSource.DataSet <> nil then
    begin
      cxView.ClearItems;
      for i:= to  cxView.DataController.DataSource.DataSet.FieldCount- do
        begin
         Column := cxView.CreateColumn;
         Column.DataBinding.FieldName := cxView.DataController.DataSource.DataSet.Fields[i].FieldName;
         Column.PropertiesClass := TcxTextEditProperties;
      end;
    end;
end;  

方法一的补充

procedure CreateDynamicCols;
  var
    i, B_index: Integer;
  begin
    with BTVgather.Bands.Add do
    begin
      Caption := lcb1.Text;
      Position.ColIndex := ;
    end;

    for i :=  to dsgather.DataSet.FieldCount -  do
    begin
      with BTVgather.Bands.Add do
      begin
        Position.BandIndex := ;
        B_index := Index;
        Caption := dsgather.DataSet.Fields[i].FieldName;
        with BTVgather.CreateColumn do
        begin
          Position.BandIndex := B_index;
          Caption := dsgather.DataSet.Fields[i].FieldName;
          DataBinding.FieldName := dsgather.DataSet.Fields[i].FieldName;
          PropertiesClassName := 'TcxCurrencyEditProperties';
          TcxCurrencyEditProperties(Properties).DisplayFormat := ',0.00;-,0.00';
          Width := 80;
          //还可以绑定一个事件
          OnGetDisplayText := Self.OnGetDisplayText;
        end;
      end;
    end;
    if BTVgather.Bands[].ChildBandCount =  then
      BTVgather.Bands[].Width :=
    else
      BTVgather.Bands[].Width := BTVgather.Bands[].ChildBandCount * ;
  end;

方法二、

for i :=  to Query.FieldCount -  do
begin
  cxGrid.CreateColumn;
  cxGrid.columns[i].DataBinding.FieldName := Query.Fields[i].DisplayName;
  cxGrid.Columns[i].Caption := 'XXXX';
  cxGrid.Columns[i].Width   :=;
end;

方法三、

procedure TFrmRuleEdit.CreateCols;
var
Column: TcxGridDBColumn;
begin
cdsPowerPrj.First;
while not cdsPowerPrj.Eof do
begin
Column := viewPower.CreateColumn;
Column.Caption := cdsPowerPrj.FieldByName('description').Text;
Column.DataBinding.FieldName := cdsPowerPrj.FieldByName('powerName').Text;
Column.PropertiesClassName := 'TcxCheckBoxProperties';
Column.Width := ;
cdsPowerPrj.Next;
end;
end;