关于常量编译的问题

[jackhatedance]

手头有一个系统的源码，被告知是能编译的。但是我却编译不了，报dwLength变量重定义了。是不是得设置某个编译参数才行啊？
procedure TfrmMain.doDBIndexOperation(frmIndexOperation: TfrmBaseForm);
const
dwLength = MAX_COMPUTERNAME_LENGTH + 1;
var
oboHousekeeping : IboHousekeeping;
rsData : _Recordset;
dwLength : DWord;
sMachineName,sUserList : string;
pszCurrentMachineID : Array[0..MAX_COMPUTERNAME_LENGTH + 1] of Char;
crSave_Cursor : TCursor;
begin
。。。。
end

[bdmh]

const
dwLength = MAX_COMPUTERNAME_LENGTH + 1;
和
dwLength : DWord;
重复了

[jackhatedance]

[Quote=引用 1 楼 bdmh 的回复:]
const
  dwLength = MAX_COMPUTERNAME_LENGTH + 1;
和
dwLength : DWord;
重复了
[/Quote]

我也觉得是重复了，但是人家说这个是可以编译通过的，我猜想是有编译指令开关可以解决这个问题的，但是${J+}也不合适。

[Harryfin]

{$J+}更本就不是这个用途，常量在定义的时候，是可以直接赋值为其它常量的。

我认为是不可能存在什么编译开关来处理你这种情况的。你说a := dwLwngth，到底编译器应该把常量赋值给a，还是把变量赋值给a呢？想想也知道。另外为什么非要解决常量和变量重名的情况，这本身我认为就是管理和设计上的问题。

[jackhatedance]

客户回复了，的确是不行的。

[wzgdyn]

既是常量又是变量，不现实