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

var

  s: string;

  p: pchar;

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

1、字符串 ---> PChar

  p := PChar(s);

2、PChar ---> 字符串

  s := p;

3、PChar ---> 字符数组

  StrCopy(@a , p);

4、字符数组 ---> PChar

  PChar(@a);

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

  StrCopy(@a , PChar(s));

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

  s := PChar(@a);

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