如何在fastreport报表中使用自己的函数?(10分)

  • 主题发起人 主题发起人 zhjq11
  • 开始时间 开始时间
将函数编译成dll文件再在fastreport中调用。
 
以下摘自FR240自带的FAQ:
Q: How I can add my own function?
A: Use TfrReport.OnUserFunction event. Here is simple example:
procedure TForm1.frReport1UserFunction(const Name: String;
p1, p2, p3: Variant;
var val: Variant);
begin
if AnsiCompareText('SUMTOSTR', Name) = 0 then
val := My_Convertion_Routine(frParser.Calc(p1));
end;

After this, you can use SumToStr function in any place of report
(in any expression or script).
 
to liuly:
这个faq我看过了,但是不明白,尤其是这一句:
val := My_Convertion_Routine(frParser.Calc(p1));
这里My_Convertion_Routine是什么?我试着照它那样写了,但是编译出错,能否详细举例说明?
谢谢!
 
My_Convertion_Routine是你自己定义的一个函数,用来实现“SUMTOSTR”的功能
 
接受答案了.
 
后退
顶部