delphi - 使用 D2009+ 将 OEM 转换为 ANSI

Question

对于 Unicode 版本专家:

是否可以定义反射(reflect)当前 OEM 编码的 ansisstring 类型？

(假设没有代码页标识符的 ansisstring 反射(reflect) ansi 代码页)

这个问题一半是开玩笑，一半是认真的:

这将大大简化我将 CRT 单元移植到 Unicode 的过程(使其变得漂亮且易于打字)

Answer 1

看来您应该能够使用 CP_OEMCP，就像您可以使用 CP_ACP 获取 Ansi 代码页一样。

type
  OemString = type AnsiString(CP_OEMCP);

如果这不起作用，请将变量声明为 RawByteString。用它需要的数据填充它，一旦找到当前的 OEM 代码页是什么(使用 GetOEMCP )，请使用 SetCodePage将该代码页分配给字符串(此时它不再是 RawByteString 了，尽管它声明了类型)。