如何给dxdbgrid动态添加列

Question

如题，怎么从数数据库得到的动态查询结果（也就是表的列数，列名等）在dxdbgrid控件中动态生成和绑定！

Answer 1

function AdddxDBColumn(dxDBGrid:TdxDBGrid;FieldName,TitleCaption:String;Width:Integer=100): TDxDBGridColumn;
var
   iWidth:Integer;
begin
  Result := TDxDBGridColumn(dxDBGrid.CreateColumn(TdxDBGridColumn));
  Result.FieldName := FieldName;
  iWidth:=dxDBGrid.Canvas.TextWidth(TitleCaption)+10;
  if iWidth<100 then Result.Width:=100 else Result.Width:=iWidth;
  with Result do
  begin
    Alignment:=taCenter;
    Caption:=TitleCaption;
    Alignment:=taCenter;
    BandIndex := 1;
  end;
end;