Delphi 10.2中ArcSec重载函数无法赋值给引用类型变量的解决问询

这个问题我之前也碰到过——Delphi对重载函数的引用赋值确实有点“认死理”，明明有完全匹配的版本，就是不肯自动选。先给你理清楚原因：Delphi 10.2里的Math.ArcSec是重载函数，覆盖了Single、Double、Extended三种参数类型；而你定义的TRealFunction是引用类型的函数指针，编译器没法自动推断你要绑定哪个重载版本，哪怕Extended版本的签名完全匹配，也会报类型不兼容的错误。Delphi 2009里ArcSec不是重载的，所以没这个问题。

下面是几个更简洁的解决办法：

1. 显式强制类型转换（最简洁） #

直接把重载函数的地址转换为TRealFunction类型，明确告诉编译器选Extended版本：

rfcn := TRealFunction(@Math.ArcSec);

只需要修改赋值语句这一行就行，完全不用额外写代码。注意一定要确保转换的目标类型和重载版本的签名完全一致（这里参数和返回值都是Extended，正好匹配），不然会有运行时风险。

2. 用普通函数指针中转（可读性更好） #

如果担心直接转换的可读性，可以先声明一个匹配签名的普通函数指针，让编译器先匹配到正确的重载版本，再转成你需要的引用类型：

type
  TExtendedFunc = function(const X: Extended): Extended;
var
  TempFunc: TExtendedFunc;
begin
  TempFunc := Math.ArcSec; // 编译器能自动匹配到Extended版本
  rfcn := TRealFunction(TempFunc);
end;

这个写法稍长一点，但团队协作时能更清晰地表达你的意图，避免歧义。

3. 内联类型转换（Delphi 10.3+适用） #

如果你的Delphi版本是10.3或更高，还可以把中转逻辑压缩成一行，用内联类型转换简化写法：

type
  TExtendedFunc = function(const X: Extended): Extended;
begin
  rfcn := TRealFunction(TExtendedFunc(Math.ArcSec));
end;

本质上和方法1逻辑一致，只是通过内联类型声明让代码更紧凑。

总结一下，方法1是最直接高效的解决方案，不用额外定义任何东西，改一行代码就能搞定。

内容的提问来源于stack exchange，提问作者Andreas Rejbrand