[控件]FastReport调用Delphi中的自定义函数

有些东西始终都是需要互相访问的,报表使用程序的函数也是家常了。

1.载入调用函数名。

	procedure TFKy_Fayun.FormCreate(Sender: TObject);
begin
frxReport1.AddFunction('function HeBin(s1:Double;s2:Double;s3:Double): string;','HeBin','合并函数');
end;

2.在报表的UserFunction事件添加如下代码。

	function TFKy_Fayun.frxReport1UserFunction(const MethodName: string;
  var Params: Variant): Variant;
begin
if CompareText(MethodName,'HeBin')=0 then
   Result:=HeBin(Params[0],Params[1],Params[2]);
end;

3.在报表中应用函数。

	[Hebin(.....)]

就是这样啦!

分享到: