使用自定义函数

//OnCreate

frxReport1.AddFunction('function MoneyCn(mmje: Double): String;', 'Myfunction', '小写金额转大写的函数');

//Frxreport.OnUserFunction

if UpperCase(MethodName) = UpperCase('MoneyCn') then

Result := MoneyCn(Params[0]);

//声明函数

function TReports.MoneyCn(Value: Currency): string;

begin

………………

end;