急！急！急！在线，关于类型转换的问题。

Question

我定义了一个currency类型的变量ThisMoney。
请问怎样才能将控件TQRExpr（假如是QRExpr1)的当前值传给它？

Answer 1

case Ord(QRExpr1.Value.Kind) of
    0: ThisMoney := QRExpr1.Value.intResult;
    1: ThisMoney := QRExpr1.Value.dblResult;
    2: ThisMoney := QRExpr1.Value.strResult;
    3: ThisMoney := QRExpr1.Value.booResult;
  end;