Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Impresión (https://www.clubdelphi.com/foros/forumdisplay.php?f=4)
-   -   Contador en impresion (https://www.clubdelphi.com/foros/showthread.php?t=14372)

Pablo Carlos 17-09-2004 23:17:45

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

vic_ia 18-09-2004 01:00:13

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...

Pablo Carlos 18-09-2004 19:07:16

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


La franja horaria es GMT +2. Ahora son las 03:23:40.

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