FastReport中如何使用自定义函数

1、例子：将金额转换为大写（备注：函数为网上下载）FastReport 版本：4.13.1

5、Code页的全部代码如下：-------颍骈城茇---------------------------------//这里是函数function MoneyToCharacter(Money:re锾攒揉敫al):string; //数字转换为中文大写var temp:string; resu:string; i,j:integer; len:integer; Num:array[0..9] of string; A:array[0..13] of string;begin Num[0]:='零'; num[1]:='壹'; Num[2]:='贰'; num[3]:='叁'; Num[4]:='肆'; num[5]:='伍'; Num[6]:='陆'; num[7]:='柒'; Num[8]:='捌'; num[9]:='玖'; a[0]:='分'; a[1]:='角'; a[2]:='元'; a[3]:='拾'; a[4]:='佰'; a[5]:='仟'; a[6]:='万'; a[7]:='拾'; a[8]:='佰'; a[9]:='仟'; a[10]:='亿'; a[11]:='拾'; a[12]:='佰'; a[13]:='仟'; temp:=trim(inttostr(round(money*100))); len:=length(temp); resu:=''; if (len>13) or (len=0) then begin exit; end; for i:=1 to len do begin j:=strtoint(copy(temp,i,1)); resu:=resu+num[j]+a[len-i]; end; result:=resu;end;//这里是自定义函数的引用procedure Memo28OnBeforePrint(Sender: TfrxComponent);begin memo28.text:=MoneyToCharacter(SUM(<ADOQuery1."je">,MasterData1)) ;end;beginend.----------------------------------------