函数返回一个匿名函数.我想将结果分配给一个变量.但编译器认为我正在尝试分配函数而不是函数的结果.我该如何解决？
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到来之前也是一样.