将C++代码转换成相应的Delphi代码

Question

char *pBuffer = new char[len + 1];
CopyMemory(pBuffer, pMSBuffer, len);
pBuffer[len] = 0;
pMSBuffer在Delpi里是Smallint型!

Answer 1

var
  pBuffer:array[0..len+1] of char;
  strLCopy(pBuffer,pMSBuffer,len);
  pBuffer[len+1]:='0';

Answer 2

char *pBuffer = new char[len + 1];
CopyMemory(pBuffer, pMSBuffer, len);
pBuffer[len] = 0;
pMSBuffer在Delpi里是Smallint型!---------------------------------------
var
  pBuff: PChar;
begin
  ...
  pBuff := StrAlloc(len+1);
  CopyMemory(pBuffer, pMSBuffer, len);
  pBuffer[len] := chr(0);