const
somedata: Integer = 12;
begin
Inc(somedata, 3);
end;
你要做的是将局部常量移到过程的外部声明，使其成为一个全局的变量。然后代码变为：
var
somedata: Integer = 12;
procedure MyProc;
begin
Inc(somedata, 3);
end;
对于过度依赖于常量的代码（比如ActiveX 控件的包装器），可以通过在源文件中插入一个{$WRITEABLECONST ON}的编译命令来修正。这一特性，在RTL， VCL， CLX，和 DB 等核心的源代码中被禁止使用，但是在周边的单元比如ActiveX 控件的包装器中倒可以接受。
总而言之，你应该意识到“可赋值的常量”这个说法的自相矛盾。Delphi的以往版本中的这一特性，只是为了与老的16位的编译器的兼容而保留，但现在对于Delphi的开发者来说已经毫无意义了。要养成好的编程习惯，尽量避免使用可赋值的常量。
Change in writeable constants
文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!
