Delphi字符串、PChar与字符数组之间的转换

var

  s: string;

  p: pchar;

  a: array[1..20] of char;

一、字符串 ---> PChar

  p := PChar(s);

二、PChar ---> 字符串

  s := p;

三、PChar ---> 字符数组

  StrCopy(@a , p);

四、字符数组 ---> PChar

  PChar(@a);

五、字符串 ---> 字符数组

  StrCopy(@a , PChar(s));

六、字符数组 ---> 字符串

  s := PChar(@a);

【注】字符串和字符数组之间的转换借助 PChar 作中转;