Quick Report - Como obtener el valor de un QRExpr
 

Holas!!

Gente alguien sabe como obtener el valor de un QRExpr en un reporte con Quick Report.
El tema es que al hacer QRExpr.Caption me muestra el "Text" digamos o la expresión asociada al componente, ejemplo: 'SUM(CANTIDAD)'. Y si hago QrExpr.Value el valor devuelto es del tipo TQREvResult y no se como utilizarlo.
Desde ya muchas gracias.

Saludos.

Por tanto: si sabes que el campo es un float:

Código Delphi [-]
 MiValorDouble := qrExpr.Value.resdouble;

Edito: Algo más general para utilizarlo en tiempo de ejecución sería:

Código Delphi [-]
var x:tqrevresult;
 valor:Variant;
begin
 case x.Kind of
  resInt    : valor := x.intResult;
  resDouble : valor := x.dblResult;
  resString : valor := x.strResult;
  resBool   : valor := x.booResult;
  else
      valor := Unassigned;
  end;
end;

saludos

Hola, tengo el mismo problema, pero me sale un error al declarar la varibale

var x:tqrevresult;

[Error] Undeclared identifier: 'TQREvResult'

Clic en tu código fuente (ojo: no en la ventana de errores de compilación), sobre la palabra QREvResult y F1, te dirá en qué unidad está declarado, y lo añades a los uses.

saludos

Hola de nuevo.

La unidad correcta que en este caso es QRCTRLS si esta en el uses.
Podria ser que mi delphi 4 no trae esa tipo de variable?

Gracias por la ayuda.

Efectivamente está definido el TQrExpr, pero no el tipo de datos, ya que TQRevResult, es el tipo de la propiedad Value de un QrExpr.

Resulta que ese tipo de datos está en otra unidad, no en qrCtrls.

uses qrexpr;

saludos

obtener el valor de un qrexpr
 

Hola amigos la verdad implemente su codigo del segundo ejemplo pero no me funciona . mi pregunta es como implementar u obtener ese valor con los ejemplos que dieros sean un poco mas claros por favor. estoy desesperado.

Uniendo mis mensajes anteriores....

Código Delphi [-]

uses qrexpr,QRCTRLS;

var x:tqrevresult;
 valor:Variant;
begin
 case x.Kind of
  resInt    : valor := x.intResult;
  resDouble : valor := x.dblResult;
  resString : valor := x.strResult;
  resBool   : valor := x.booResult;
  else
      valor := Unassigned;
  end;
end;

Saludos

qrexpr
 

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

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

Saludos

QRExpr
 

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

Gracias de todos modos!!

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

Hola a todos,
Tengo una gran,gran pregunta :confused:
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...


Gracias...

hola a todos!!
yo tengo un problema con el QuickReport 4 y delphi 2007. Lo que me pasa es que al compilar no encuentra QRCtrls.dcu.
Donde lo puedo conseguir???
gracias!

Si tienes instalado el QuickReports y te funciona bien, es muy posible le hayan cambiado el nombre al archivo. Yo siempre he usado la versión 3 y pico.

Mira la ayuda de QR, buscando sobre TQRExpr, debe decirte en qué unidad está.

Saludos