如何将另一个函数返回的函数分配给函数变量？结果而不是生成函数本身

函数返回一个匿名函数.我想将结果分配给一个变量.但编译器认为我正在尝试分配函数而不是函数的结果.我该如何解决？

program Project9;

{$APPTYPE CONSOLE}

type
  TMyEvent = reference to function: string;

var
  v1: TMyEvent;

function GetHandler: TMyEvent;
begin
  Result := function: string
            begin
              Result := '';
            end;
end;

begin
  v1 := GetHandler;  // <- Incompatible types: 'TMyEvent' and 'Procedure'
end.

注意：我有一个解决方法,但我希望这个问题可以解决,而不引入一个包装：

program Project9;

{$APPTYPE CONSOLE}

type
  TMyEvent = reference to function: string;

  TWrapper = record
    FHandler: TMyEvent;
  end;

var
  v1: TMyEvent;

function GetHandler: TWrapper;
begin
  Result.FHandler := function: string
                     begin
                       Result := '';
                     end;
end;

begin
  v1 := GetHandler.FHandler;  // <- works

编辑：这不是特定于匿名或任何特殊类型的功能：这是实际的任何返回功能的函数,在Turbo Pascal之前,即使第一个Delphi到来之前也是一样.

解决方法

如果您的匿名方法/函数是无缝的,则必须分配with();

v1 := GetHandler();

没有括号Delphi将尝试将该函数分配给该变量.括号告诉它将函数结果分配给变量.