如何得到TQRExpr的值？

Question

呵呵。。我要告诉你。。你一定要给分哦。。
定义一个 VAR SMALL：REAL；
  然后  SMALL:=QRExpr.Value.dblresult;
   

Answer 1

哈哈你可以直接用这个QREXPR的ONPRINT事件来把
他显示的内容直接改为大写的，这样用户看到的就是
大写啦。  
类于：
 value:=getcode(value));
其中GETCODE是改小写为大写函数的

Answer 2

还是不行啊！在onprint事件里取到的value是string类型，显示出来的是一大串肯定不是我想要的那个：（，大家一定帮忙啊！
我把分数加了！

Answer 3

case Expr.Value.Kind of //TQREvResultType
  resInt: s := IntToStr(comp.Value.intResult);
  resDouble: s := FormatFloat(comp.Mask, comp.Value.dblResult);
  resBool: if comp.Value.booResult = True 
              then s := 'True'
           else 
             s := 'False';
  resString: s := comp.Value.strResult;
  resError: ;
end;上面的代码肯定没有问题，是我从我们的程序（可是商业应用的噢）里拷出来的