delphi - 已弃用的命令 StrPas

Question

当我尝试编译代码时，出现以下错误。谁能建议我在这里做错了什么？

W1000 Symbol 'StrPas' is deprecated: 'Moved to the AnsiStrings unit'

我尝试编译的代码片段是:

{$IFDEF NEWVER} // Codegear delphi 2009    d12.0
      StrCopy(pSerialNumber, @Buf[pDevDesc.SerialNumberOffset + 1]);
{$ELSE}
      StrPCopy(pSerialNumber,
        FlipAndCodeBytes(StrPas(@Buf[pDevDesc.SerialNumberOffset + 1])));
{$ENDIF}

Answer 1

documentation有答案了。它说:

This function is provided for backwards compatibility only. To convert a null-terminated string to an AnsiString or native Delphi language string, use a typecast or an assignment.

因此，您应该根据缓冲区是否为 8，将其转换为 AnsiString 或 UnicodeString，而不是 StrPas(...)位或 16 位。