在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]);
————————————————
版权声明：本文为CSDN博主「9807146wang」的原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接及本声明。
原文链接：https://blog.csdn.net/9807146wang/article/details/2622695