char、pchar、string互相转换

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;