delphi char数组、string和Pchar的相互转换

由于要调用windows的api或者给vc++写接口，不少地方都要用到pchar，如今将char数组、string和pchar之间的相互转换都列出来，都是网上找的资料，我总结一下，先直接上代码，再讲原理。

 

1.string转换成pchar

   可使用pchar进行强制类型转换，也可使用StrPCopy函数

var s:string; p,p1:PChar; begin s:='Hello Delphi'; p:=PChar(s); ShowMessage(p); p1:=StrAlloc(Length(s)+1); StrPCopy(p1,s); ShowMessage(p1); StrDispose(p1); end;

 

2.pchar转换成string
  pchar能够直接当string用，也能够用strpas函数转换一下

var
s,s1,s2:string;
p:PChar;
begin
s:='Hello Delphi';
p:=PChar(s);
ShowMessage(p);
s1:=p;
ShowMessage(s1);
s2:=StrPas(p);
ShowMessage(s2);
end;

3.char数组转换成string
   使用StrPas函数获取数组的首地址
var
c:array [0..11] of Char;
s:string;
begin
c[0]:='H';
c[1]:='e';
c[2]:='l';
c[3]:='l';
c[4]:='o';
c[5]:=' ';
c[6]:='D';
c[7]:='e';
c[8]:='l';
c[9]:='p';
c[10]:='h';
c[11]:='i';
s:=StrPas(@c[0]);
ShowMessage(s);
end;
4.string转char数组

使用move或者copymemory函数

var
s:string;
c:array of Char;
i:Integer;
begin
s:='Hello Delphi';
SetLength(c,Length(s));
//Move(s[1],c[0],Length(s));//move和CopyMemory都行
CopyMemory(@c[0],PChar(s),Length(s));
for i:=Low(c) to High(c) do
begin
ShowMessage(string(c[i]))
end;
end;

5.char数组转pchar

var
c:array [0..11] of Char;
p:PChar;
begin
c:='Hello Delphi';
//p:=@c[0];
p:=PChar(@c[0]);
ShowMessage(StrPas(p));
end;

6.pchar转char数组
使用move或者CopyMemory函数

var
s:string;
p:PChar;
c:array of Char;
i:Integer;
begin
s:='Hello Delphi';
p:=PChar(s);
SetLength(c,Length(s));
//Move(p^,c[0],Length(s));//move和CopyMemory都行
CopyMemory(@c[0],p,Length(s));;
for i:=Low(c) to High(c) do
begin
ShowMessage(string(c[i]))
end;
end;

如今讲讲char数组、pchar和string

string和Char数组都是一块内存,其中存放连续的字符. string保存具体字符的内存对用户是透明的, 由Delphi管理它的分配, 复制和释放, 用户不能干预(其实也能够, 不过是经过非法途径). Char数组就没必要说了吧?PChar是一个指针, 它的大小只有32位. 定义时由Delphi自动填0. 要将PChar做为字符串使用的话必须本身分配内存用完必须本身释放. PChar型字符串由#0表示字符串结尾Delphi所提供的相关PChar字符串的操做都是判断#0来决定字符串的结尾的。
由于PChar是指针，因此它能指向任何地方(也就是说它不必定非要指向字符串不可).把一个String赋值给PChar只是将String中保存具体字符串的内存的地址给PChar变量. 固然也能够把Char数组第一个元素的地址给PChar.

至于 哪一个占用内存小, Char数组＜PChar(指分配过字符串的)＜string(除了具体字符串外还包含字符串长度)
若是空字符串那么PChar＜String＜array [0..n] of Char
从速度来讲毫无疑问string最慢, 例如:
做为参数传递(非var调用时)给过程时string将整个字串的副本传递过去, PChar将指针自己的副本传递过去(32位), Char数组和PChar同样, 传递的是第一个元素的地址副本.不过就灵活性来讲string最高, 并且Delphi支持的函数最多. 另外能够将String做为Buffer使用(由于它当中能够包含字符0).

注：由于string和char数组都是连续的，因此指向string的首地址的指针为@s[1]，指向char数组的首地址的指针为@c[0]。pchar是以#0结尾的，因此不少关于pchar

的函数的使用的时候要注意，如使用StrAlloc函数给pchar分配内存的时候和使用StrPCopy函数的时候

7.使用StrAlloc函数将一个string转换给pchar

var
p:PChar;
s:string;
begin
s:='ABCDEF';
p:=StrAlloc(Length(s));
Move(s[1],p^,Length(s));
ShowMessage(StrPas(p));
StrDispose(p);
end;
执行以上代码的时候，字符串后面有乱码，查看delphi帮助里面关于StrAlloc函数

delphi的帮助以下：

StrAlloc allocates a buffer for a null-terminated string with a maximum length ofSize - 1 (1 byte must be reserved for the termination character). 

StrAlloc函数给pchar指向的字符串分配的实力内存为size-1个字节，因此咱们要多分配一个字节的内存，用来存pchar的结束标志#0
正确使用以下：

var
p:PChar;
s:string;
begin
s:='ABCDEF';
p:=StrAlloc(Length(s)+1);
Move(s[1],p^,Length(s)+1);//将s的内容按照字节复制到p里面
//Move(s[1],p^,Length(s)); //执行这句会出现乱码
ShowMessage(StrPas(p));
StrDispose(p);
end;
8.使用StrPCopy将string转换成char数组
var
s:string;
c:array of Char;
i:Integer;
begin
s:='Hello Delphi';
SetLength(c,Length(s));
StrPCopy(@c[0],s);
for i:=Low(c) to High(c) do
begin
ShowMessage(string(c[i]))
end;
end;

以上代码执行的时候会报错，查看delphi帮助才知道，strpcopy函数不作长度检查，须要程序员本身控制。
delphi帮助以下：

StrPCopy copies Source into a null-terminated string Dest. It returns a pointer to Dest.
StrPCopy does not perform any length checking. 
The destination buffer must have room for at least Length(Source)+1 characters

正确代码以下：

var s:string; c:array of Char; i:Integer;begin s:='Hello Delphi'; SetLength(c,Length(s)+1); StrPCopy(@c[0],s); for i:=Low(c) to High(c) do begin ShowMessage(string(c[i])) end;end;使用strpcopy函数的时候必定要保证目的pchar的长度至少是源字符串的长度+1--------------------- 版权声明：本文为CSDN博主「kunlun122」的原创文章，遵循CC 4.0 by-sa版权协议，转载请附上原文出处连接及本声明。原文连接：https://blog.csdn.net/kunlun122/article/details/13773075