关于常量的用法！(34分)

我在一本《DELPHI应用技巧和常见问题》一书看到这样的一个问题，但是我按照书的实例写代码测试却不行，书的内容如下：
Constants(常量)，在Delphi里面有两种：
一种叫做True Constants，定义方法为：const identifier = value;
注意没有类型标识符。这种constants就是我们经常说的常量，不能修改它的值。
还有一种叫Typed constants，定义方法为：const identifier : type = value;
注意有一个类型标识符。这种constants是可以被修改的。实例：
procedure testsum;
const
a:integer=0;
begin
inc(a);
showmessage(inttostr(a));
end;
**************************************************************
以上的内容我在D7中测试不通过，发现Typed constants这种常量也不能修改！！难道是书有问题吗？请大家研究下…………

D7中要加上 {$J+} 编译指示才能这么使用。详见它的Delphi帮助。

打开那个编译器指令后，常量都可以像变量一样修改
但是代价还是很大的，占内存的东西又变多了，不推荐

接受答案了.