"Low Bound Exceeds High Bound" Delphi 10 中的错误

Question

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

"Low Bound Exceeds High Bound"

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

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

Answer 1

我不知道为什么你显示的代码不起作用。我担心这是一个错误！无论如何，要让它编译，你可以这样写：

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位.

"Low Bound Exceeds High Bound" error in Delphi 10