新人请问，怎么获取类成员函数的指针

新人请教，如何获取类成员函数的指针？
public
  procedure TestAddress;
  procedure ShowAddress;
end;

......


procedure TTest.testAddress;
begin
  ...
end;

procedure TTest.ShowAddress;
var
  P: Pointer;
begin
  P:= @(testAddress);     //这一句报错，variable required
  
end;

请问要怎样获取成员函数的地址？我是新人，请各位前辈指点
TTest = class
public
  procedure TestAddress;
  procedure ShowAddress;
end;

......


procedure TTest.testAddress;
begin
  ...
end;

procedure TTest.ShowAddress;
var
  P: Pointer;
begin
  P:= @(testAddress);     //这一句报错，variable required
  
end;

请问要怎样获取成员函数的地址？我是新人，请各位前辈指点

类 指针

分享到：

------解决方案--------------------

type
  TPro = procedure of object;
  PPro = ^TPro;
  TTest = class
  public
    procedure TestAddress;
    procedure ShowAddress;
  end;

implementation

  { TTest }

procedure TTest.ShowAddress;
var
  P: Pointer;
  P1: TPro;
begin
  P1 := testAddress;
  P:= @P1;
end;

procedure TTest.TestAddress;
begin

end;

end.