FastReport調用Delphi中的自定義函數(人民幣大寫金額)mtm
阿新 • • 發佈:2018-03-18
分享圖片 人民幣 IT report text 定義 eat fas func
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[0]); end;
3. 在FastReport , memo6 的 OnAfterData 事件中插入如下代碼
procedure Memo6OnAfterData(Sender: TfrxComponent); begin //------- memo6.text := MoneySpeechC(memo6.Value); end;
FastReport調用Delphi中的自定義函數(人民幣大寫金額)mtm