delphi Pointer 转成string

var
  s: string;
  p: pointer;
  s := PChar(p);
前提p指向的字符串要以#0结尾。