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

Question

转换成大写的函数我在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得到的是里面的脚本？

Answer 1

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

Answer 2

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

Answer 3

WWWWA(aaaa) 老兄说的方法行。
var
t: TfrMemoView;
begin
t := TfrMemoView(frReport1.FindObject(‘Memo1‘));
if t <> nil then
t.memo.clear;
t.Memo.Text := ‘大写数字‘;
end;