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 做中转;