Почему переменная Currency рассматривается как константа с FillChar в Delphi?

Следующий код должен компилироваться и компилироваться со многими другими типами.
Однако компилятор сообщает, что "Постоянный объект не может быть передан как параметр var parameter", несмотря на то, что переменная, очевидно, является переменной.

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 - единственная подпрограмма, которую я нашел с этой проблемой.

• Что вызывает эту проблему?
• Возникают ли какие-либо другие типы?

В ответ на неизбежное "Зачем вам делать эти комментарии": у нас есть генератор кода, который использует FillChar для генерации первичных структур записей и примитивных типов. Он работает со всем остальным, но неожиданно провалился с валютой. У нас есть обходные пути, но было бы неплохо понять первопричину и узнать, может ли что-то другое вызвать у нас проблемы.

Изменить

Из Jeroen answer разумно сделать вывод, что проблема существует во всех версиях Delphi. Кроме того, массив валют, по-видимому, имеет сходную проблему.

Ответ Дэвида дает некоторые полезные обходные пути.

Последнее решение, которое необходимо рассмотреть, - это изменение генератора для работы с валютой в качестве специального случая и просто установите Value := 0.

Ответы

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

ZeroMemory(@LVar, SizeOf(LVar));

LVar := Default(Currency);