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