FastReport调用Delphi中的自定义函数(人民币大写金额)mtm

1. 在 FormCreate 中向FastReprot添加函数 (fPrint)窗口

procedure TfPrint.FormCreate(Sender: TObject);

  frxReport1.AddFunction('function MoneySpeechC(pMoney: Currency): String;','Myfunction','人民币大写金额转换函数');

end;

2. 在FastReport用户函数事件中添加 OnUserFunction

function TfPrint.frxReport1UserFunction(const MethodName: string; var Params: Variant): Variant;
begin if UpperCase(MethodName) = UpperCase('MoneySpeechC') then
Result := MoneySpeechC(Params[]); end;

3.     在FastReport , memo6 的 OnAfterData 事件中插入如下代码

procedure Memo6OnAfterData(Sender: TfrxComponent);
begin //-------
memo6.text := MoneySpeechC(memo6.Value); end;

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

上一篇:jQuery组件开发之表格隔行选中效果实现


下一篇:奇妙的算法之LCS妙解