[控件]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(.....)]

就是这样啦！