delphi - 指向(子)方法函数的指针？

Question

如果您想使用方法的指针作为参数，则需要将该方法键入作为对象的函数，就像这样好 :

type TAcceptor = function(filename:string):boolean of object;
function acceptor(filename:string):boolean; 
begin 
  result := filename <> ''; 
end;

如果你想使用子方法的指针怎么办？它不起作用:

procedure TForm1.Button1Click(Sender:TObject);
  function acceptor(filename:string):boolean of object;
  begin 
    result := filename <> ''; 
  end;
begin
end;

发生错误:;预期但发现了!

问题:有没有子函数指针？我可以转换吗？

Answer 1

我不明白这怎么可能。

http://docwiki.embarcadero.com/RADStudio/XE6/en/Procedural_Types

如果你看一下 method pointers部分，它特别指出不能使用嵌套过程和函数:

"Nested procedures and functions (routines declared within other routines) cannot be used as procedural values, nor can predefined procedures and functions."

您也许可以使用匿名方法来解决这个问题。像这样的东西:

procedure TForm1.Button1Click(Sender:TObject);
begin
  DoSomethingWithAcceptor(function(FileName: string): Boolean
  begin 
    Result := FileName <> '';
  end);
end;