delphi - 由于 StrAlloc 使用 StrAlloc 返回 PWideChar，PAnsiChar 和 PWideChar 类型不兼容

Question

我知道这可能很简单，但有时 Unicode 问题会因为太多的考虑而困扰我。

我有这个代码:

pcBuffer := StrAlloc(Stream.Size + 1) where pcBuffer is defined as PWideChar

该组件现在想要 pcBuffer 作为 PAnsiChar，所以如果我这样做，我会收到错误

StrAlloc- Incompatible Types PAnsiChar and PWideChar

由于 StrAlloc 返回 PWideChar

如何解决这个问题？

我可以简单地以 Unicode 方式或通过 GetMem 键入强制转换为 PAnsiChar 或分配 它吗？

Answer 1

在 Delphi XE 中，SysUtils 单元定义了以下函数:

function AnsiStrAlloc(Size: Cardinal): PAnsiChar;
function WideStrAlloc(Size: Cardinal): PWideChar;
function StrAlloc(Size: Cardinal): PChar;

您应该调用 AnsiStrAlloc 来分配 PAnsiChar。它接收以字符为单位的 Size。您必须考虑空终止符。

var
  pcBuffer: PAnsiChar;
....
pcBuffer := AnsiStrAlloc(Stream.Size + 1);

但是，这些函数应被视为已弃用。它们在 Delphi 的后续版本中都有记录。相反，您可能应该使用 AnsiString，以便让编译器管理生命周期和内存分配。

var
  str: AnsiString;
  pcBuffer: PAnsiChar;
....
SetLength(str, Stream.Size);
pcBuffer := PAnsiChar(str);

缓冲区的生命周期由编译器管理，就像任何 Delphi 字符串变量的情况一样。

上面的代码很可能不是解决您实际问题的最佳方法。如果没有看到更多细节，很难确定最好的解决方案是什么。我唯一有理由相信的是 StrAlloc 和 friend 不是前进的方向。