彩票走势图

FastReport VCL是用于 Delphi、C++ Builder、RAD Studio 和 Lazarus 的报告和文档创建 VCL 库。它提供了可视化模板设计器，可以访问 30 多种格式，并可以部署到云、网站、电子邮件和打印中。

立即点击下载FastReport VCL v6.9最新版

FastReport 内置了大量的标准函数，用于报表设计。还可以添加您自己的自定义功能。函数连接是使用FastReport中包含的“FastScript”脚本库接口进行的（要了解FastScript的更多信息，请参阅它的库手册）。

如何连接过程和/或函数的示例。函数的参数数量和类型可能会有所不同。不能传递“Set”和“Record”类型的参数，因为FastScript不支持它们。您必须传递更简单的类型的参数，例如传递TRect为X0, Y0, X1, Y1: Integer。查看更多关于在 FastScript 文档中添加具有不同参数的函数的过程。

在 Delphi 表单上声明函数或过程及其代码。

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)'); 

修改上面的代码示例，将函数注册到单独的类别中，并显示函数描述提示：

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'); 

如果要在现有类别之一中注册函数，请使用以下类别名称之一：
'ctString'——字符串函数；
'ctDate' - 日期/时间函数；
'ctConv' - 转换函数；
'ctFormat' - 格式化；
'ctMath' - 数学函数；
'ctOther' - 其他功能。

如果指定了空白类别名称，则函数将放置在函数树根中。

如果您希望添加大量函数，建议将所有逻辑放在一个单独的库单元中。下面是一个例子：

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. 

如果您对 FastReport 感兴趣，欢迎加入 FastReport QQ 交流群：702295239

还想要更多吗？您可以点击阅读【FastReport报表2021最新资源盘点】，查找需要的教程资源。上是FastReport .NET慧正在网火热销售中!>>查看价格详情