Quick Report - Como obtener el valor de un QRExpr

[telfaxh]

uses qrexpr,QRCTRLS;

var x:tqrevresult;
valor:Variant;
numero:Real
begin
x:=qrexpr1.value;

case x.Kind of
resInt : valor := x.intResult;
resDouble : valor := x.dblResult;
resString : valor := x.strResult;
resBool : valor := x.booResult;
else
valor := Unassigned;

numero:=qrexpr1.value.dblResult;
end;


como le asigno a numero el valor real de QRExpr1????

[[Lepe]]

Declara numero como Double o Extended (yo siempre uso Extended).

Saludos

[telfaxh]

Lamentabvlemente no tuve suerte con el codigo anterior siento que es imposible obtener el valor de un qrexp.

Gracias de todos modos!!

[[Lepe]]

Sería bueno indicar qué error dá y de qué tipo. Además de explicar las circunstancias de uso.

Puede ser que intentes consultar el valor antes de abrir la consulta (por un descuido).

Supongo que el mejor momento para capturar el valor sería en el evento BeforePrint del componente.


Saludos

[Alejandrina]

Hola a todos,
Tengo una gran,gran pregunta
Estoy intentando comparar un TQRExpr y un TQRDBText para saber cual es mayor e imprimirlo. El valor del TQRExpr lo obtengo de la forma anteriormente expuesta pero no se como obtener el del TQRDBText y compararlo. Los valores que estan dentro de estos campos son tipo numeric.
Si alguien me puede colaborar estare infinitamente agradecida.

Mi idea es la siguiente...se k el codigo puede estar orroroso pero es k no tengo idea...

procedure TInfCertificado.QRExpr23Print(sender: TObject;
  var Value: String);
  var numero,numero2:double;
begin
 numero:=QRExpr23.Value.dblResult;
 numero2:=StrToFloat(QRDBText21.Caption);
 if (numero>numero2) then
    begin
      QRExpr23.Value:=QRDBText21.Caption;
    end
 ELSE
   BEGIN
   END;
end;

Gracias...