Delphi Char、Pchar 、String 相互转换

var
  s:string;
  p,p1:PChar;
begin
  s:=‘Hi Delphi7‘;
  p:=PChar(s);     //
  ShowMessage(p);

  p1:=StrAlloc(Length(s)+1);
  StrPCopy(p1,s);
  ShowMessage(p1);
  StrDispose(p1);
end;

var
  s,s1,s2:string;
  p:PChar;
begin
  s:=‘Hi Delphi7‘;
  p:=PChar(s);    //ShowMessage(p);
  s1:=p;          //ShowMessage(s1);
  s2:=StrPas(p);  //ShowMessage(s2);
end;

var
  c:array [0..11] of Char;
  s:string;
begin
  s:=StrPas(@c[0]);   //使用StrPas函数获取数组的首地址   ShowMessage(s);
end;

 var
  s:string;
  c:array of Char;
  i:Integer;
begin
  s:=‘Hi Delphi7‘;
  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;

var
  c:array [0..11] of Char;
  p:PChar;
begin
  c:=‘Hi Delphi7‘;
  //p:=@c[0];
  p:=PChar(@c[0]);
  ShowMessage(StrPas(p));
end;

var
  s:string;
  p:PChar;
  c:array of Char;
  i:Integer;
begin
  s:=‘Hi Delphi7‘;
  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;