Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Impresión
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 19-03-2009
ocram ocram is offline
Miembro
 
Registrado: nov 2006
Posts: 25
Poder: 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
  #2  
Antiguo 19-03-2009
Avatar de ContraVeneno
ContraVeneno ContraVeneno is offline
Miembro
 
Registrado: may 2005
Ubicación: Torreón, México
Posts: 4.738
Poder: 23
ContraVeneno Va por buen camino
sobre los 40 valores,
¿son sumatorias o promedios de los datos que tienes en el detalle del reporte?
__________________

Responder Con Cita
  #3  
Antiguo 19-03-2009
ocram ocram is offline
Miembro
 
Registrado: nov 2006
Posts: 25
Poder: 0
ocram Va por buen camino
los 40 valores ya los tengo asignados en el array de float la idea es decirle de forma dinamica ej:

qrlT1.Caption := FloatToStr(Total[1]);
qrlT2.Caption := FloatToStr(Total[2]);
.
.
.
qrlT40.Caption := FloatToStr(Total[40]);
Responder Con Cita
  #4  
Antiguo 19-03-2009
Avatar de ContraVeneno
ContraVeneno ContraVeneno is offline
Miembro
 
Registrado: may 2005
Ubicación: Torreón, México
Posts: 4.738
Poder: 23
ContraVeneno Va por buen camino
si, pero me pareció que son sumas de lo que ya tienes en el reporte. Me pareció que muestras los datos en el "Detail" del reporte y en otro Query haces la sumatoria de esos datos. Eso me pareció que estas haciendo y si ese es el caso, lo mejor es utilizar expresiones con el componente TQRExpr que te permite hacer las sumas.

Por eso preguntaba que si eran sumas. Si estoy equivocado entonces no puedo ayudarte.
__________________

Responder Con Cita
  #5  
Antiguo 08-04-2009
nanozaja nanozaja is offline
Miembro
 
Registrado: ene 2007
Posts: 16
Poder: 0
nanozaja Va por buen camino
ese codigo q pones es el q te tira error?? yo tengo hecho algo de generar etiquetas en tiempo de ejecucion... si especificas bien dnd tira el error y agregas un poco de codigo, te puedo ayudar...
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Asignar Evento OnClick en forma dinamica en tiempo de ejecucion delphi50jmb OOP 7 06-07-2008 03:46:02
Crear formularios de forma dinamica istradlin Lazarus, FreePascal, Kylix, etc. 4 06-12-2007 15:30:40
Variables creadas en forma dinamica GerTorresM OOP 1 04-10-2007 15:44:01
Creacion en Forma Dinamica de Tablas GerTorresM OOP 1 02-10-2007 02:35:12
Crear variables de forma dinamica papulo PHP 3 24-11-2005 17:39:20


La franja horaria es GMT +2. Ahora son las 19:02:17.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi