var
AEmun: Int64;
begin
//...

case AEmun of
$100800f4211: showmessage('f');
$100800f4611: showmessage('s');
$100800e4211: showmessage('t');
end;

//....

上面這段代碼在Delphi 7 中編譯出錯，提示[Error] MainUnt.pas(640): Constant expression violates subrange bounds

但在Delphi 2006中卻可以編譯通過了，只是提示警告信息[Pascal Warning] Unit8.pas(65): W1012 Constant expression violates subrange bounds

Why?

我在BDS2006可編譯過,

D7我把高位元部份遮掉

[code]

var
AEmun: Int64;
begin
AEmun:=$100800f4611;
// ShowMessage(IntToHex(AEmun xor $10080000000,6));
case AEmun xor $10080000000 of
$f4211: showmessage('f');
$f4611: showmessage('s');
$e4211: showmessage('t');
end;
end;

[/code]