delphi – 方法指针和常规程序不兼容

德尔福有3种程序类型：

>独立或单位范围的函数/过程指针如下声明：

var Func：function(arg1：string)：string;
var Proc：procedure(arg1：string);
>方法指针如下声明：

var Func：function(arg1：string)：对象的字符串;
对象的var Proc：procedure(arg1：string);
>而且,由于Delphi 2009,匿名(见下文)功能/方法指针如下声明：

var Func：引用函数(arg1：string)：string;
var Proc：引用过程(arg1：string);

独立指针和方法指针是不可互换的.这样做的原因是可以在方法中访问的隐式Self参数. Delphi的事件模型依赖于方法指针,这就是为什么你不能为一个对象的事件属性分配一个独立的函数.

所以你的事件处理程序必须被定义为一些类定义的一部分,任何类定义来安抚编译器.

由于TOndrej建议您可以在编译器周围进行攻击,但是如果这些事件处理程序处于同一个单元中,那么它们应该已经被关联了,所以你可以继续将它们包装到一个类中.

还有一个我还没有看到的建议是回溯一点.让每个表单实现自己的事件处理程序,但是将该处理程序委托给在新单元中声明的函数的责任.

TForm1.BrowseCategoriesClick(Sender:TObject)
begin
  BrowseCategories;
end;

TForm2.BrowseCategoriesClick(Sender:TObject)
begin
  BrowseCategories;
end;

unit CommonUnit

interface
procedure BrowseCategories;
begin
//
end;

这有额外的好处是将用户操作的响应与触发操作的控件分开.您可以轻松地将工具栏按钮和弹出菜单项的事件处理程序委托给相同的功能.

您选择的方向最终取决于您,但我会提醒您,专注于哪一个选项将使得可维护性在将来更容易,而不是目前最为方便.

匿名方法

匿名方法是一个不同的野兽.匿名方法指针可以指向一个独立的函数,一个方法或一个未命名的函数声明为内联.最后一个函数类型是从中获取匿名的名称.匿名函数/方法具有捕获在范围之外声明的变量的独特能力

function DoFunc(Func:TFunc<string>):string
begin
  Result := Func('Foo');
end;

// elsewhere
procedure CallDoFunc;
var
  MyString: string;
begin
  MyString := 'Bar';
  DoFunc(function(Arg1:string):string
         begin
           Result := Arg1 + MyString;
         end);
end;

这使得它们是程序指针类型中最灵活的,但是它们也具有潜在的更多开销.变量捕获与内联声明一样消耗额外的资源.编译器使用隐藏的引用计数接口进行内联声明,这会增加一些较小的开销.