Delphi、PChar和Char数组的比较
string和Char数组都是一块内存, 其中存放连续的字符. string保存具体字符的内存对用户是透明的, 由Delphi管理它的分配, 复制和释放, 用户不能干预(其实也可以, 不过是通过 非法途径). Char数组就不必说了吧?
PChar是一个指针, 它的大小只有32位.
定义时由Delphi自动填0. 要将PChar作为字符串使用的话必须自己分配内存用完必须自己释放.
PChar型字符串由#0表示字符串结尾
Delphi所提供的相关PChar字符串的操作都是判断#0来决定字符串的结尾的。因为PChar是指针，所以它能指向任何地方(也就是说它不一定非要指向字符串不可).
把一个String赋值给PChar只是将String中保存具体字符串的内存的地址给PChar变量. 当然也可以把Char数组第一个元素的地址给PChar. 至于
哪个占用内存小, Char数组＜Char(指分配过字符串的)＜string(除了具体字符串外还 包含字符串长度)
如果空字符串那么PChar＜String＜array [0..n] of Char
从速度来说毫无疑问string最慢, 例如:
作为参数传递(非var调用时)给过程时string将整个字串的副本传递过去, PChar将指针本身的副本传递过去(32位),
Char数组和PChar一样, 传递的是第一个元素的地址副本.不过就灵活性来说string最高, 而且Delphi支持的函数最多.
另外可以将String作为Buffer使用(因为它当中可以包含字符0).
----------------------------------------------------------------------------------
在Delphi2.0以后的版本中，string分两种，一种是与Pascal传统string相兼容，叫ShortString,
它的存储结构如下：
+---------------------+
| 1Byte | 字符串内容 |
+---------------------+
0 1 ......
其中第一个字节为字符串的长度。
所以ShortString所能包括的字符串长度不能大于255。
另一种是叫长字符串AnsiString，它就是一个指向字符串的指针，不过具体的存储有些特别。它的存储结构如下：
+-----------------------+
| 4B | 4B | 字符串内容 |
+-----------------------+
-8 -4 0 ......
其中，AnsiString指向字符串第一个字符，nbsp;
在第一个字符的反方向第1到第4的4个字节表示字符串长度，第5到第8的4个字节表字符串被引用的次数。
pchar就是纯指向字符串(#0字符结尾)的指针，与C语言中的char
*是一样的。
char数组也是指向字符串的指针，它与pchar的区别在于：
1．char数组(均指非动态数组)一旦定义好，它的长度就固定了；
2．char数组的地址是常量，不能另赋其它值，不能象pchar一样，
如: sPchar:pchar;
sArray1,sArray2:array[0..80]of char;
sPChar:=sArray2;
sPChar;=sArray1;
但不能sArray2:=sArray1;
char数组就相当于const char *
要说速度最快当然是纯指针操作的pchar与char数组最快啦，所谓占内存最少，效率更高，不知老兄你想进行什么方面的应用，一般对string,pchar或char数组，不用考虑这些。
对编程而言，如果在Delphi或C++Builder中使用，可尽量使用AnsiString,
Borland公司对它已经进行了非常完美的内部处理，使用非常方便。
如果涉及到Windows
API或混合编程等，接口部分一般使用pchar。
char数组使用的比较少了，因为多数可以用char数组的地方，现在比较流行的作法是定义一个ansistring, 再用setlength来设定它的长度。
------------------------------------------------------------
三、字符串string
字符数组与指向字
符串的指针pchar的区别与联系
这3者的基本概念相同,但有一些非常细微的差别,在编程时稍不注意就会出错,需高度重视。
1、使用指向字符串的指针,如果不是以0结尾,运行时就会出现错误。为了避免这种错误,需要在字符串结尾人工加入0
即char(0),或用strpcopy函数在字符串结尾自动加0。
例1: 指向字符串的指针,如果不是以0结尾,运行时会出现错误:
{s[0]=3 s[1]='n' s[2]='e' s[3]='w'}
var
s:string;
p:pchar;
begin
s:='new';
label1.caption:=s; {new}
label2.caption:=intTostr(integer(s[0]));{3是字符串的长度}
p:=@s[1];{不是以0结尾,莫用pchar型指针}
label3.caption:=strpas(p); {运行时出现错误}
end;
例2:在字符串结尾人工加入0即char(0),可使用指向字符串的指针。
{s[0]=4 s[1]='n' s[2]='e'
s[3]='w' s[4]=0;}
{p－－>'new'}
var
s:string;
p:pchar;
begin
p:=@s[1];
s:='new'+char(0); {以0结尾,可用pchar型指针}
label1.caption:=strpas(p);
{new}
注意:
procedure GetMem(var P: Pointer; Size: Integer);
//分配动态内存
function StrPas(const Str: PChar):
string;
//将PChar转换为String