ocram
19-03-2009, 20:09:08
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
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