Quick Report - Como obtener el valor de un QRExpr

[bataola]

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.

[[Lepe]]

Empezado por Ayuda QuickReports

type TQREvResultType = (resInt, resDouble, resString, resBool, resError)
type TQREvResult = record
case Kind : TQREvResultType of
resInt : (intResult : Longint);
resDouble : (dblResult : Double);
resString : (strResult : String[255]);
resBool : (booResult : Boolean);
end
property Value : TQREvResult

Description

Use the Value property to access the value of the Expression. It returns a variant record with the result of the calculation.

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

[Supermagayin]

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

var x:tqrevresult;

[Error] Undeclared identifier: 'TQREvResult'

[[Lepe]]

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

[Supermagayin]

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.

[[Lepe]]

Empezado por QuickReport help

Filename

QRCTRLS.DCU

Description

This unit includes all standard printable components

Components

TQRDBImage
TQRDBRichText
TQRDBText
TQRExpr
TQRExprMemo
TQRImage
TQRLabel
TQRMemo
TQRSysData
TQRRichText
TQRShape

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

[telfaxh]

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.

[[Lepe]]

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

[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!!