Delphi类的成员方法作为参数传递

Delphi7

Windows电脑

打开Delphi7集成开发环境，在默认工程的Form1窗体放一个Button1按钮。

在Unit1.pas源代码文件的TForm1类Public区声明一个函数，代码如下；   function getName(s:string):string;

在Unit1.pas源代码文件的implementation区定义一个Tfun类型，其参数和返回值与刚刚声明的getName方法一致，并随后定义getName函数，代码如下：implementation{$R *.dfm}type  TFun = function(s:string):string of object;{ TForm1 }function TForm1.getName(s: string): string;begin  Result := s+'类方法' ;end;

在Unit1.pas源代码文件的implementation区定义一个MyDiao过程，用来调用上面定义的类方法，传入一个var修饰的string类型参数，和一个Tfun类型的参数,代码如下：procedure MyDiao(var v: string; fun: TFun);begin  v := fun(v);end;

F9运行程序，点击按钮，弹出对话框内容‘我是名字类方法’，‘类方法’三个字是我们类的函数里添加的，证明类的函数被成功调用了