FastReport VCL是用于 Delphi、C++ Builder、RAD Studio 和 Lazarus 的報(bào)告和文檔創(chuàng)建 VCL 庫。它提供了可視化模板設(shè)計(jì)器，可以訪問 30 多種格式，并可以部署到云、網(wǎng)站、電子郵件和打印中。

立即點(diǎn)擊下載FastReport VCL v6.9最新版

FastReport 內(nèi)置了大量的標(biāo)準(zhǔn)函數(shù)，用于報(bào)表設(shè)計(jì)。還可以添加您自己的自定義功能。函數(shù)連接是使用FastReport中包含的“FastScript”腳本庫接口進(jìn)行的（要了解FastScript的更多信息，請(qǐng)參閱它的庫手冊(cè)）。

如何連接過程和/或函數(shù)的示例。函數(shù)的參數(shù)數(shù)量和類型可能會(huì)有所不同。不能傳遞“Set”和“Record”類型的參數(shù)，因?yàn)镕astScript不支持它們。您必須傳遞更簡(jiǎn)單的類型的參數(shù)，例如傳遞TRect為X0, Y0, X1, Y1: Integer。查看更多關(guān)于在 FastScript 文檔中添加具有不同參數(shù)的函數(shù)的過程。

在 Delphi 表單上聲明函數(shù)或過程及其代碼。

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

procedure TForm1.MyProc(s: String); 
begin 
// necessary logic
end;

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; 

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

修改上面的代碼示例，將函數(shù)注冊(cè)到單獨(dú)的類別中，并顯示函數(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'); 

如果要在現(xiàn)有類別之一中注冊(cè)函數(shù)，請(qǐng)使用以下類別名稱之一：
'ctString'——字符串函數(shù)；
'ctDate' - 日期/時(shí)間函數(shù)；
'ctConv' - 轉(zhuǎn)換函數(shù)；
'ctFormat' - 格式化；
'ctMath' - 數(shù)學(xué)函數(shù)；
'ctOther' - 其他功能。

如果指定了空白類別名稱，則函數(shù)將放置在函數(shù)樹根中。

如果您希望添加大量函數(shù)，建議將所有邏輯放在一個(gè)單獨(dú)的庫單元中。下面是一個(gè)例子：

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 
// necessary logic
end; 

procedure MyProc(s: String); 
begin 
// necessary 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. 

如果您對(duì) FastReport 感興趣，歡迎加入 FastReport QQ 交流群：702295239

還想要更多嗎？您可以點(diǎn)擊閱讀【FastReport報(bào)表2021最新資源盤點(diǎn)】，查找需要的教程資源。上是FastReport .NET慧正在網(wǎng)火熱銷售中!>>查看價(jià)格詳情