局部恒量可以改变

局部常量可以改变？
今天我看一套热血传奇源码。
其中有一个过程是这样写的
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 完成。。
奇怪了。。。
求指点！

------解决方案--------------------

Procedure GetProcMsg;

Const

  {$J+}

  BoCheck:Boolean=True;

  {$J-}

Var

  ddx,ddy;integer;

begin

  if (ddx<>0) and (ddy<>0) then

    BoCheck:=False;

.................

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

相关推荐