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 17-09-2004
Avatar de Pablo Carlos
Pablo Carlos Pablo Carlos is offline
Miembro
 
Registrado: jun 2004
Ubicación: Mendoza - Argentina
Posts: 270
Poder: 20
Pablo Carlos Va por buen camino
Contador en impresion

Hola gente... necesito si me pueden ayudar... realizar un prg que haga de contador... tengo en el form principal 2 Tedit (los cuales uso para indicar el desde y el hasta. En el evento onclick de un button escribo este código donde eNumero1 es un QRlabel y necesito que alli de el numero que corresponde a "I"... imprima la primer pag y en la segunda, obviamente tendría que dar I + 1... pero con este código me da error... Pueden revisarlo y sugerir???
Código Delphi [-]
var I : Integer;
begin
  for I :=  StrToInt(frmPrincipal.eDesde.Text) to StrToInt(frmPrincipal.eHasta.Text) do
  begin
   with frmImprimir do
    begin
     StrToInt(eNumero1.Caption):= I + 1;
     Report.Preview;
    end;
  end;

Gracias
__________________
Por qué todas las personas saben exactamente cómo debemos vivir nuestra vida, y nunca tienen idea de cómo deben vivir sus propias vidas.
Responder Con Cita
  #2  
Antiguo 18-09-2004
Avatar de vic_ia
vic_ia vic_ia is offline
Miembro
 
Registrado: ene 2004
Posts: 238
Poder: 21
vic_ia Va por buen camino
hola...

en primera instancia lo que observo es que estas utilizando una función (que te regresa un valor) del lado izquierdo de una sentencia de asignación, no creo que eso sea valido, yo creo que lo mejor es que utilices una variable local y a ella asignes el valor de tu suma (I+1) y luego esta la asignes en donde la requieras ...

saludos...
Responder Con Cita
  #3  
Antiguo 18-09-2004
Avatar de Pablo Carlos
Pablo Carlos Pablo Carlos is offline
Miembro
 
Registrado: jun 2004
Ubicación: Mendoza - Argentina
Posts: 270
Poder: 20
Pablo Carlos Va por buen camino
Gracias...

Esto es lo que hice...
Código Delphi [-]
var I : Integer;
begin
  for I :=  StrToInt(frmPrincipal.eDesde.Text) to StrToInt(frmPrincipal.eHasta.Text) do
  begin
   with frmImprimir do
    begin
     eNumero1.Caption := StrToInt(I);
     Report.Preview;
    end;
  end;
y alli esta funcionando... gracias nuevamente
Saludos
__________________
Por qué todas las personas saben exactamente cómo debemos vivir nuestra vida, y nunca tienen idea de cómo deben vivir sus propias vidas.
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


La franja horaria es GMT +2. Ahora son las 07:06:28.


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