Undeclared identifier resDouble (TQrExpr)

[[Lepe]]

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'

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]

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

Gracias, me sirvió

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

Saludos