使用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 函数了。
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024