德尔福XE3 : Chr Ansi Version?

Question

我有自己的带有加密功能的 D6 pas 库。今天在XE3下尝试使用，发现里面有很多bug，因为unicode的原因。我尝试移植到 AnsiString，但在 chr(nnn) 上失败了，在 Delphi6 下，chr(nnn) 受 8 位限制。

我试图解释这个问题:

    Str := chr(hchar);
    AStr := Str;

Str - 字符串； AStr - ansisstring。

当hchar为216(直径)时，AStr变为“O”，Ascii 79是多少...而我此刻就失去了原有的值(value)。

Ansi Chr 有什么功能吗？例如:“AChr(xxxx)”

或者我需要更改代码以不在内部部分使用字符串，仅使用字节，然后将这些字节转换为 AnsiString？

感谢您的任何建议、帮助、信息!

dd

Answer 1

您可以编写 AnsiChar(SomeOrdinalValue) 来创建具有特定序数的 AnsiChar。所以你的代码应该是:

AStr := AnsiChar(hchar);

问题中代码的问题在于您转换为 UTF-16 并转换回来。

在我看来，字符串对于您的加密代码来说是错误的类型。使用字节数组，TBytes。