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

来源 https://www.cnblogs.com/zhangzhifeng/p/5888823.html