Foros Club Delphi - Consulta sobre TQExpr

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Impresión (https://www.clubdelphi.com/foros/forumdisplay.php?f=4)

- - Consulta sobre TQExpr (https://www.clubdelphi.com/foros/showthread.php?t=1868)

DanielAlexander

01-07-2003 16:23:23

Consulta sobre TQExpr

Hola a todos!!!!!!!
Tengo que guardarme el resultado que muestra un TQExpr en un informe para mostrarlo en otro.
Probé usando una variable global y en el evento afterprint del QRband donde esta el TQExpr asignarle la propiedad
variable:=QRexpr4.Value.strResult;
Pero no me guarda nada, no se si tengo problemas con la conversion de datos o que esta pasando.
Muchas gracias.

marcoszorrilla

01-07-2003 21:55:59

Mírate este ejemplo:

Código:

procedure TForm1.SummaryBand1AfterPrint(Sender: TQRCustomBand;

  BandPrinted: Boolean);

begin

ss:=QrExpr1.Value.dblResult ;

{Utiliza una de las dos dependiendo que el valor devuelto sea entero o doble}

ss:=QrExpr1.Value.intResult  ;

ShowMessage(FormatFloat(',0.00',ss));

end;

Bueno aclarar que SS es una variable pública de tipo Doble que he declarado solamente para hacer la prueba.

Un Saludo.

DanielAlexander

02-07-2003 17:11:20

Muchas gracias!!!!!
Esta era la solución mas adecuada pero lo tuve que solucionar de otra manera porque no me funcionaba y estaba apurado.
Gracias.

La franja horaria es GMT +2. Ahora son las 15:18:22.