Cantidad de columnas variables

[[sitrico]]

Yo, trabaje de otra manera:

Creo las columnas en runtime con un ciclo (for i := 0 to q.FieldsCount-1)

Este el el código base para hacerlo:

Código Delphi [-]
With TQRDBText.Create(AOwner) do
   begin
   Parent := AOwner; // el Band
   Height := AltoStd;
   Top := 1;
   Left := PxCampo;  // comienza en 0 y se incrmenta en el ancho de cada campo
   ParentFont := True;
   AutoSize := False;
   Width := ElAncho;  // definido en parametros
   DataSet := Self.DataSet; // el mismo del Report
   DataField := ElCampo;  // Nombre del campo
   Tag := ElTag;  // 
   OnPrint := QRDBTextPrint;  // no es necesario generalmente
   WordWrap := False;
   Alignment := Alineacion;
   If Bold Then
      Font.Style := [fsBold];
   If DataSet.FieldByName(ElCampo) is TFloatField Then
      Begin
      Alignment := taRightJustify;
      Mask := '#,##0.00'; // ajustar mascara numericos
      End;
   End;
PXCampo := PxCampo + ElAncho + Separacion; // Separacion entre columnas
end;