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是我遇到这个问题的唯一例子.

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

In response to the inevitable “Why would you do that comments”: We have a code generator that uses FillChar to generically initialise record structures & primitive types. It works with everything else,but unexpectedly Failed with Currency. We do have workarounds,but it would be nice to understand the root cause,and know whether anything else is likely to cause us trouble.

编辑

从Jeroen’s answer年可以合理地得出结论,这个问题存在于德尔福的所有地方.此外,货币阵列显然也出现了类似的问题.

David’s answer提供了一些不错的解决方法.

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