fastreport 合计函数_FastReport中如何使用自定义函数

Code页的全部代码如下：

----------------------------------------

//这里是函数

function MoneyToCharacter(Money:real):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(,MasterData1)) ;

end;

begin

end.

----------------------------------------