局部常量可以改变？

Question

今天我看一套热血传奇源码。
其中有一个过程是这样写的
Procedure GetProcMsg;
Const
BoCheck:Boolean=True;
Var
ddx,ddy;integer;
begin
  if (ddx<>0) and (ddy<>0)then
    begin
  BoCheck:=False;
.................
这个工程文件夹有三种格式的文件
dpr
dproj
bdsdproj
有趣的是。
用dproj编译的时候错误提示 Left side can not be assgin;
而bdsdproj却没有 直接build 完成。。
奇怪了
求指点！

Answer 1

Procedure GetProcMsg;
Const
  {$J+}
  BoCheck:Boolean=True;
  {$J-}
Var
  ddx,ddy;integer;
begin
  if (ddx<>0) and (ddy<>0) then
    BoCheck:=False;
.................

Answer 2

turbo pascal遗留下来的语法。

Answer 3

const在早期的Turbo Pascal中是表示静态变量的意思.相当于C/C++的static变量.
后来Delphi里面被改变成了常量.但是可以用J+打开兼容以前的语法.