FastReport问题集
---------------- 使用自定义函数 ----------------------------------------
Q: 我怎样添加我的自定义函数？
A: 使用 TfrReport.OnUserFunction 事件. 这里有一个简单的例子:
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;
然后，你就可以在报表（任何表达式或脚本）的任何地方使用 SumToStr 函数了。
Q: 但是它仅仅能工作在一个TfrReport组件中。可我想在任何地方（在所有的TfrReport组件中）使用的我的自定义函数？
A: 使 OnUserFunction eve...[ 查看全文 ]
