Delphi var参数的数据类型转换

Question

我有一个带有var Extended 参数的函数。如果我在调用函数时尝试使用 Double 类型参数，编译器会报错。但是，如果我将 Extended 值作为函数 Result 传回（并分配给 Double 变量），那么编译器会很高兴。

这是预期的吗？如果是这样，有什么方法可以欺骗编译器降低参数的精度以匹配参数？

function foo1(var e: extended): boolean;
begin
  e := 0.0;
  Result := true;
end;

function foo2(): extended;
begin
  Result := 0.0;
end;

procedure CallFoo();
var
  d: double;
begin
  if foo1(d) then Exit; // compiler complains
  d := foo2; // compiler happy
end;

Answer 1

var 参数要求实际参数完全匹配。您只能传递 Extended 变量。

您的一个选择是为您需要的每种浮点类型引入重载。但我的建议是停止使用Extended 并改用Double。 Extended 类型仅存在于 32 个 Intel 平台上，并且很少提供优于 Double 的任何好处。相反，它不寻常的 10 字节大小通常会由于未对齐和缓存使用效率低下而导致性能不佳。