FastReport VCL報表控件擁有大量可用于報表設(shè)計的內(nèi)置標準函數(shù)。此外，FastReport VCL報表還允許編寫和使用自定義函數(shù)。通過 FastReport中的“FastScript”庫接口可添加函數(shù)。

接下來，我們就一起來看看如何將程序/函數(shù)添加到FastReport。參數(shù)的數(shù)量和類型根據(jù)函數(shù)的變化而變化。 FastScript不支持“Set” 和 “Record"類型的參數(shù)。

在Delphi窗體中，聲明了函數(shù)，程序以及其代碼：

function TForm1.MyFunc(s: String; i: Integer): Boolean;
begin
// required logic
end;
procedure TForm1.MyProc(s: String);
begin
// required logic
end;

為報表控件創(chuàng)建“onUser”函數(shù)處理器：

function TForm1.frxReport1UserFunction(const MethodName: String;
var Params: Variant): Variant;
begin
if MethodName = 'MYFUNC' then
Result := MyFunc(Params[0], Params[1])
else if MethodName = 'MYPROC' then
MyProc(Params[0]);
end;

通過報表控件的add方法將函數(shù)添加到函數(shù)列表中。

frxReport1.AddFunction('function MyFunc(s: String; i: Integer):Boolean');
frxReport1.AddFunction('procedure MyProc(s: String)');

所添加的函數(shù)可在報表腳本中使用，并可以被“TfrxMemoView”類型的對象引用。此外，該函數(shù)還可以顯示在"Data tree" 函數(shù)選項卡上。在該選項卡上，函數(shù)被劃分為多個類別，當選擇函數(shù)提示時，該函數(shù)便出現(xiàn)在標簽的底部窗格中。

修改上面的代碼示例實現(xiàn)在不同類別中注冊函數(shù)，并顯示描述性提示：

frxReport1.AddFunction('function MyFunc(s: String; i: Integer): Boolean',
'My functions',
' MyFunc function always returns True');
frxReport1.AddFunction('procedure MyProc(s: String)',
'My functions',
' MyProc procedure does not do anything');

所添加的函數(shù)將出現(xiàn)在“My functions”類別中。

請使用下列其中一個類別名稱，在已有類別中注冊函數(shù)：

-'ctString' ：string function
- 'ctDate'： date/time functions
- 'ctConv' ：conversion functions
- 'ctFormat' ：formatting
- 'ctMath' ：mathematical functions
- 'ctOther'： other functions

如果類別名稱在左邊空白處，函數(shù)便被置于函數(shù)樹的根目錄。若要添加大量的函數(shù)，建議所有的邏輯被放置在一個獨立的庫單元。例如：

unit myfunctions;
interface
implementation
uses SysUtils, Classes, fs_iinterpreter;
// you can also add a reference to any other external library
here
type
TFunctions = class(TfsRTTIModule)
private
function CallMethod(Instance: TObject; ClassType: TClass;
const MethodName: String; var Params: Variant):
Variant;
public
constructor Create(AScript: TfsScript); override;
end;
function MyFunc(s: String; i: Integer): Boolean;
begin
// required logic
end;
procedure MyProc(s: String);
begin
// required logic
end;
{ TFunctions }
constructor TFunctions.Create;
begin
inherited Create(AScript);
with AScript do
AddMethod('function MyFunc(s: String; i: Integer): Boolean',
CallMethod,
'My functions', ' MyFunc function always returns True');
AddMethod('procedure MyProc(s: String)', CallMethod,
'My functions', ' MyProc procedure does not do anything'');
end;
end;
function TFunctions.CallMethod(Instance: TObject; ClassType: TClass;
const MethodName: String;
var Params: Variant): Variant;
begin
if MethodName = 'MYFUNC' then
Result := MyFunc(Params[0], Params[1])
else if MethodName = 'MYPROC' then
MyProc(Params[0]);
end;
initialization
fsRTTIModules.Add(TFunctions);
end.

保存該文件，并將其擴展名命名為.pas。然后，添加索引到該文件夾。此時，你便可以在任何報表組件中使用這些自定義的函數(shù)，無需編寫代碼來將這些函數(shù)添加的每個“TfrxReport”組件，也無需為每個報表控件的 “onUser” 事件處理程序編寫額外的代碼。