delphi - 调用函数返回的过程

Question

有了这个:

procedure Foo;
begin
end;

function Bar: TProcedure;
begin
  Result := Foo;
end;

编译如下:

var
  tmp: TProcedure;
begin
  tmp := Bar();
  tmp();

...但以下代码无法在 Delphi 中编译:

Bar()();

这种“限制”有理由吗？ Bar()(); 语法是否以 Pascal 的其他“风格”进行编译？ Bar()(); 语法会在其他上下文中编译吗？

Answer 1

简单地调用为

TProcedure(Bar());