在fastreport中加入自定义函数。

procedure TForm1.FormCreate(Sender: TObject);

begin  

frxReport1.AddFunction('function CurrToBigNum(Value:Extended):string', '财务', '把数值转换成中文大写金额');

end;

function TForm1.frxReport1UserFunction(const MethodName: String;  var Params: Variant): Variant;

begin     

if LowerCase(MethodName)='currtobignum' then   

 begin       

 if not VarIsNull(Params) then        

   Result := CurrToBIGNum(Params[0]);   

 end   

else if LowerCase(MethodName)='smalltobig' then   

    if not VarIsNull(Params) then      

    Result := SmallToBig(Params[0]);