1

我正在尝试在外部单元中实现一些功能并在 FastReport 脚本中调用它们。我的单元已正确编译，但问题是函数选项卡中没有出现函数或过程。有人可以建议如何解决这个问题吗？我不确定我是否错过了什么。

下面是我的单元代码示例。FastReport 开发人员指南指出实现应该是这样的。

unit frxCustomFuncs;

interface
var myGlobalVar: primitiveType;
implementation

uses sysUtils, Classes, fs_iinterpreter,
myUnit;

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;



procedure myCustomProcedure(myParam1, myParam2: TdateTime);
var myVar: TMyCustomClass; //declared in myUnit
begin
   myVar:= TMyCustomClass.create(myParam1, myParam2);
   try

Some code ...
        myGlobalVar:= myVar.property;
some code ...
   finally
     myVar.Free;
   end;
end;

{ TFunctions }

function TFunctions.CallMethod(Instance: TObject; ClassType: TClass;
  const MethodName: String; var Params: Variant): Variant;
begin
  if MethodName = 'myCustomProcedure' then
  myCustomProcedure(Params[0], Params[1]);
end;

constructor TFunctions.Create(AScript: TfsScript);
begin
  inherited create(AScript);
  with AScript do
  begin
      AddMethod('procedure myCustomProcedure(myParam1, myParam2: TdateTime)',
      CallMethod, 'My Functions', 'custom description');
  end;
end;

initialization
  fsRTTIModules.Add(TFunctions);

end.
4

1 回答 1

2

我的猜测：该单元存在于您自己的项目中，并且您正在使用 IDE 中的报表设计器。IDE 中的设计器不知道也不应该知道有关您当前项目的任何事情。

将文件添加到设计时包中，IDE 中的设计器应该会使用这些功能。

于 2011-02-01T14:20:01.137 回答