FR中如何把一MEMO的数字经过转换成大写后写到另一个MEMO中

[yyb2000]

转换成大写的函数我在D中已写好，但就是不行？

我在D 中是这样写的
TFrView(fpReport.FindObject('Memo6')).Memo.Text :=UpperCase(TFrView(fpReport.FindObject('Memo5')).Memo.Values['Memo5']) ;

Uppercase是转换大写的函数
如果这样也不行
TFrView(fpReport.FindObject('Memo6')).Memo.Text :=UpperCase(TFrView(fpReport.FindObject('Memo5')).Memo.TEXT) ;
这时fpReport.FindObject('Memo5')).Memo.TEXT得到的是里面的脚本？

[WWWWA]

在FR中增加一变量，比如为ZZ，其EXPREssion与MEMO5一致，为sum[adoquery1.iquantity]
在D6中可取到其值：
zz1:=frReport1.Dictionary.value['zz'];ZZ1即为ZZ的值
即sum[adoquery1.iquantity]的值，
在D6+FR2.51下已测试通过。

[WWWWA]

var
t: TfrMemoView;
begin
t := TfrMemoView(frReport1.FindObject(‘Memo1‘));
if t <> nil then
t.memo.clear;
t.Memo.Text := ‘大写数字‘;
end;

[yyb2000]

TO 楼上的大大
这个方法是可以，但我要先得到FR中的MEMO5的小写数字，再对它转换后填回MEMO6，MEMO5的脚本是sum[adoquery1.iquantity]，这个可以得到，但在D中用
fpReport.FindObject('Memo5')).Memo.TEXT得到的是脚本而不是计算后的数