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;
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];
qrDBtext1.Expression := consulta.fields[1].Fieldname;
laborioso.... pero en fins...
Saludos