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