delphi PChar与String互转

1.String转化成PChar

var
  str: string;
  pStr:PChar;
...
pStr := PChar(str);
PChar := PChar(string);

2.PChar转String

var
  pStr:PChar;
  str:string;
...
str := strPas(pStr);
string := strPas(PChar);