Un reporte impreso con Imaginacion!!

[[Lepe]]

Ah, perdón. Creí que querías enlazarlo al informe en tiempo de diseño.

En tiempo de ejecución, no existen "campos persistentes". En ejecución, puedes acceder a los campos vía Fields:

Código Delphi [-]
for i:= 0 to query.fileds.count -1 do
begin
  ShowMessage(query.fields[i].AsString);
  ShowMessage(query.fileds[i].FieldName);
  if query1.fields[i] is TNumericField then
    TNumericField(query1.fields[i]).displayFormat := ',#0.00 €'
end

Como ves, en tiempo de ejecución tienes acceso a todo lo que tienes en diseño y algunas cosas más.

También tienes acceso a la definición de cada campo (mira en el inspector de objetos la propiedad FieldDefs del tquery por si te interesa), pero tiene truco, primero tienes que hacer un Update de los mismos:

Código Delphi [-]
 query1.open;
 query1.fieldsDef.Update;
 // ahora ya podemos acceder a FieldsDef y ver todas sus propiedades:
 for i:= 0 to query1.fieldsdef.count-1 do
   query1.fieldsdef[i].LoQueSea

Edito: te quedaría algo así:

Código Delphi [-]
const columna = 'SUM( CASE Quarter  WHEN %s THEN COL%d ELSE 0 END) AS COL%d';
begin
  consulta.sql.clear;
  with consulta do
  for i:= 0 to Fields.count -1 do
  begin
    SQL.Add(Format(columna, [Quotedstr(Consulta_de_campos.Fields[n].AsString,n,n]);
    n++;
  end;
  Consulta.SQL.Add( ' from tabla group by campoA')

Espero que pilles la idea, porque yo no uso mysql, además al hablar en tiempo de ejecución, no sé que valores realmente hay en consulta_de_campos.

Ya que usas QuickReport, busca en el foro por "qrCreateList" es una forma de crear un listado automático a partir de una consulta cualquiera, creo que es interesante para este caso, ojalá te sirva.

De todas formas, para el quicreport siempre puedes hacer algo así:

Código Delphi [-]
quickreport.dataset := consulta;
qrDBtext1.dataField := consulta.fields[1];

// esto no sé si es necesario, me parece que no
qrDBtext1.Expression := consulta.fields[1].Fieldname;

laborioso.... pero en fins...


Saludos