Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Impresión (https://www.clubdelphi.com/foros/forumdisplay.php?f=4)
-   -   Undeclared identifier resDouble (TQrExpr) (https://www.clubdelphi.com/foros/showthread.php?t=8153)

Lepe 10-03-2004 15:43:36

Undeclared identifier resDouble (TQrExpr)
 
Cita:

Q:

How do I check the value of QRExpr control at runtime?

A:

The "Value" property of a TQRExpr component is of type TQREvResult, which is defined in qrprntr.pas. You can check "Value.Kind" to see what the datatype is. The following table shows how to retrieve the results of the expression based on the value of "Value.Kind"

If Value.Kind = resInt then the results of the expression are in Value.IntResult
If Value.Kind = resDouble then the results of the expression are in Value.DblResult
If Value.Kind = resString then the results of the expression are in Value.StrResult (defined as string[255])
If Value.Kind = resBool then the results of the expression are in Value.BooResult
If Value.Kind = resError then the expression had an error
tengo en el uses la dichosa qrprntr, qrctrls, quickrep y sigue sin reconocer el 'resdouble'
Código:

var i,j :Integer;
    Band : TQRcustomBand;
begin
  Band := Rpt.Bands.DetailBand;
  for j:=0 to Band.ControlCount -1 do
    with TQRExpr(Band.Controls[j]) do
        if Value.Kind = resdouble  then
          Mask := '#,##0.00';

¿qué estoy haciendo mal?

Uso Qreport que viene con delphi 6 Empresarial, version 3

Gracias por vuestro tiempo

SnaKe 10-03-2004 15:53:12

Hola,

El uses que debes colocar para que te reconozca resDouble o cualquier otro de las constantes que indicabas es: QrExpr

Espero que te sirva.

Un saludo.

Lepe 10-03-2004 16:40:22

Gracias, me sirvió ;)

como el TqrExpr viene en el qrctrls, pensaba que estaba todo ahí. :o

Saludos


La franja horaria es GMT +2. Ahora son las 11:45:01.

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