delphi - Delphi XE 中的类型转换问题

Question

我尝试以这种方式列出程序:

type

TProc = procedure of object;

TMyClass=class
private
fList:Tlist;
function getItem(index:integer):TProc;
{....}
public
{....}
end;
implementation
{....}
function TMyClass.getItem(index: Integer): TProc;
begin
 Result:= TProc(flist[index]);// <--- error is here!
end;
{....}
end.

并得到错误:

E2089 Invalid typecast

我该如何解决？如我所见，我可以制作一个只有一个属性 Proc:TProc; 的假类并列出它。但我觉得这是一种糟糕的方式，不是吗？

PS:项目必须兼容 delphi-7。

Answer 1

类型转换无效，因为您不能将方法指针与指针相匹配，方法指针实际上是两个指针，第一个是方法的地址，第二个是对方法所属对象的引用。参见 Procedural Types在文档中。这在任何版本的 Delphi 中都不起作用。