delphi - 在Delphi 7中，为什么我可以给const赋值？

Question

我将一些 Delphi 代码从一个项目复制到另一个项目，发现它在新项目中无法编译，但在旧项目中可以编译。代码看起来像这样:

procedure TForm1.CalculateGP(..)
const
   Price : money = 0;
begin
   ...
   Price := 1.0;
   ...
end;

因此，在新项目中，Delphi 提示“左侧无法分配给” - 可以理解!但这段代码是在旧项目中编译的。所以我的问题是，为什么？是否有编译器开关允许重新分配 const？那到底是如何运作的呢？我认为常量在编译时被它们的值替换了？

Answer 1

您需要打开可分配的类型常量。项目 -> 选项 -> 编译器 -> 可分配类型常量

您还可以将 {$J+} 或 {$WRITEABLECONST ON} 添加到 pas 文件中，这可能会更好，因为即使您移动它也会工作将文件复制到另一个项目。