为什么在 Delphi 中使用 FillChar 将 Currency 变量视为常量？

Question

以下代码应该可以编译，并且可以与许多其他类型一起编译。
但是，编译器报告“常量对象不能作为 var 参数传递”错误 - 尽管 变量 很明显是一个 变量。

program CurrencyConstant;
{$APPTYPE CONSOLE}
var
  GVar: Currency;
begin
  FillChar(GVar, SizeOf(GVar), 0);
end.

同样，过程中的局部变量也会出现同样的问题。

procedure TestCurrency;
var
  LVar: Currency;
begin
  FillChar(LVar, SizeOf(LVar), 0);
end;

我怀疑这与 FillChar 是一个编译器魔术过程，而 Dest 是一个无类型的 var 参数这一事实有关。 FillChar 是我发现这个问题的唯一例程。

• 是什么导致了这个问题？
• 是否有其他类型受到影响？

为了回应不可避免的“你为什么要这样做 cmets”：我们有一个代码生成器，它使用 FillChar 来一般地初始化记录结构和原始类型。它适用于其他一切，但意外地与货币失败。我们确实有解决方法，但最好了解根本原因，并了解是否有其他任何事情可能给我们带来麻烦。

---

编辑

从Jeroen's answer 可以合理地得出结论，该问题存在于所有版本的 Delphi 中。此外，Currency 数组显然也存在类似问题。

David's answer 提供了一些不错的解决方法。

最后一个要考虑的解决方法是，修改生成器以将货币作为特殊情况处理，并简单地设置 Value := 0。

Answer 1

问题的原因是什么？

编译器错误。请提交质控报告。

是否有其他类型受到影响？

也许吧。试一试就知道了。

---

至于解决方法，我会这样写：

FillChar(Pointer(@LVar)^, SizeOf(LVar), 0);

或者像这样：

ZeroMemory(@LVar, SizeOf(LVar));

甚至像这样：

LVar := Default(Currency);

我个人认为ZeroMemory 比FillChar 更具描述性。

Answer 2

作为requestedCraig Young：

它仍然出现在 Delphi XE4 中。
报告编号：118866 状态：已报告
无法对货币变量执行 FillChar
https://web.archive.org/web/20150322021442/http://qc.embarcadero.com/wc/qcmain.aspx?d=118866
它类似于 http://qc.embarcadero.com/wc/qcmain.aspx?d=87168（未存档）

针对 Delphi ZeroMemory 或 FillMemory 与 FillChar 一样有效。

在 Delphi 方面，ZeroMemory 和 FillMemory 在下面使用 FillChar，在 Delphi 2006 中可能是 inlined。
在 C++ 端，两者都使用编译器宏。

这个问题可能只发生在 Currency 上，因为这是唯一可以缩放的数字编译器类型。
序数类型、常规浮点类型和Comp 不会重现此问题。

---

编辑：该问题已在 XE5 Update 2 中修复