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、字符数组 ---> 字符串
|
来自: Gavin-book > 《DELPHI》