【搞定】如何调用资源集里的函数的？**

yanyequan

你是调用的资源集里的窗体里的函数，还是直接调用的资源集里的函数，我看到你两个地方的类名不一样，一个 CYCT 一个 CXCT，把声明部分和实现部分的代码贴出来看看吧，我们用了很多这样的函数都没问题。

yanyequan

直接在资源集里声明方法：

unit DD;

interface

uses
  Business.System, Business.Model, Business.Data, Business.Forms;

type
  TDD = class(TBizLibrary)
  private
    {private declarations}
  public
    {public declarations}
    static function ABC(...): string;
  end;

implementation

static function TDD.ABC(...): string;
begin
...
end;

调用方法：

DD.TDD.ABC(...);

巧克力味

我直接调用资源集里的函数，里面的CXCT没有写代码！

yanyequan

如果是资源集里的窗体里的函数，定义方法和资源集里一样，调用方法不一样了：

假设窗体名字是：PP，如下调用：DD.TPP.ABC(...);

yanyequan

哦，那你的资源集应该如下：

unit CYCT;

interface

uses
  Business.System, Business.Model, Business.Data, Business.Forms;

type
  TDD = class(TBizLibrary)
  private
    {private declarations}
  public
    {public declarations}
    ...
    static function GetPARA: string;
    ...
  end;

implementation

static function TCYCT.GetPARA: string;
begin
  Result := 'asdf';
  Dialogs.ShowMessage('成功了！');
end;

访问代码是:

procedure TMainForm.Button6Click(Sender: TObject);
var
   str:string;
begin
     str:=CYCT.TCYCT.GetPARA;
end;

巧克力味

真的很感谢你！~~

lisb

感谢 yanyequan 的回！！