Ver Mensaje Individual
  #1  
Antiguo 19-03-2009
ocram ocram is offline
Miembro
 
Registrado: nov 2006
Posts: 25
Reputación: 0
ocram Va por buen camino
Asignar valore en forma dinamica a TQRLabel

Hola de nuevo a todos.

en esta ocacion estoy queriendo asignar los valores de un array de 40 posiciones a 40 etiquetas en una banda goupfooter de un quickreport. Ahora para esto se me ocurren 2 opciones:

1.- crear las 40 etiquetas con un nombre continuo por ejemplo qrlT1....qrlT40 y con un ciclo agregar los valores del del array a los botones. ¿Como podria hacer esto tomando en cuenta que ya tengo creadas las 40 etiquetas y el array ya tiene los 40 valores?

2.- Crear las etiquetas en tiempo de ejecucion y asignarle los valores del array(esto ultimo ya lo intente pero me marca un error de access violation).
las variables que uso son:
m tipo Intetger
grupo tipo integer (Esta se incrementa cada que se crea una banda groupfooter para no repetir en mismo nombre de la etiqueta)
total tipo array[1..40] de float

este codigo lo puse en el evento beforeprint de la footerband

for m:= 1 to 40 do begin
with TQRLabel.Create(frmrptCalificacionesFecha.qrbSumSource.AddPrintable(TQRLabel)) do begin
Name := 'qrlTotal'+IntToStr(Grupo)+IntToStr(m);
Left := l*10;
Top := m*6;
Caption := FloatToStr(total[m]);
end;
end;




Agradezco sus comentarios
Responder Con Cita