我怎样为FASTREPORT报表控件添加自定义函数

2026年09月26日 02:42

有2个网友回答

网友（1）：

使用TfrReport.OnUserFunction 事件. 这里有一个简单的例子:

procedureTForm1.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;

然后，你就可以在报表（任何表达式或脚本）的任何地方使用 SumToStr 函数了。

网友（2）：

这个功能finereport就可以轻松实现的，不知道fastreport的做法有没有区别。