Quick Report - Como obtener el valor de un QRExpr

[Lepe] · #2 15-10-2005

Cita:

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