Delphi 10 中的“下限超过上限”错误

问题描述

目前我正在将应用程序从 Delphi 5 迁移到 Delphi 10。下面的 switch case 在 Delphi 5 中工作正常，但给出了

"Low Bound Exceeds High Bound" 

编译期间 Delphi 10 中的错误。如果我将值从 #128 更改为 #127，则一切正常。我不知道为什么使用 #128 会出错，而使用 #127 可以正常工作。

var Src : PChar;
...
case Src^ of
  #128..#255 :
    begin
    end;
end;

解决方法

我不知道为什么您显示的代码不起作用。我怕是bug！ 无论如何，要编译它，你可以这样写：

var Src : PChar;
...
case Src^ of
  #128,#129..#255 :
    begin
    end;
end;

这将产生相同的效果。 你也可以写：

case Ord(Src^) of
  128..255 :
    begin
    end;
end;

但是如果您有许多其他情况下具有常量字符的情况，则第二个变体很烦人。您必须通过添加和 Ord() 来修改每一个。

您还应该看看 {$HIGHCHARUNICODE} 指令的效果。

顺便说一句：这种代码 - 也许 - 你忘记了 Delphi 5 字符是 8 位 ANSI 的标志，而对于 Delphi 2009 及更高版本，字符是 16 位。