1. 程式人生 > >FastReport調用Delphi中的自定義函數(人民幣大寫金額)mtm

FastReport調用Delphi中的自定義函數(人民幣大寫金額)mtm

分享圖片 人民幣 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 , memo6OnAfterData 事件中插入如下代碼

技術分享圖片
procedure Memo6OnAfterData(Sender: TfrxComponent);
begin

   //-------
   memo6.text := MoneySpeechC(memo6.Value);
   
end;
技術分享圖片

FastReport調用Delphi中的自定義函數(人民幣大寫金額)mtm