首页 / DELPHI / Delphi Char、Pchar 、String 相互转换

Delphi Char、Pchar 、String 相互转换

内容导读

互联网集市收集整理的这篇技术教程文章主要介绍了Delphi Char、Pchar 、String 相互转换，小编现在分享给大家，供广大互联网技能从业者学习和参考。文章包含1346字，纯文字阅读大概需要2分钟。

内容图文

Delphi Char、Pchar 、String 相互转换

1、String 与 PChar 转换
1.1 String转化成PChar 2种方式 

            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;

1.2 PChar转String   3种方式 

            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;

 

2、String 与 Char 转换
2.1 Char转String 

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

2.2 String 转 Char  

             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;

 

3、Char 与 PChar 转换
3.1 Char 转 PChar 

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

3.2.PChar 转 Char 

            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;

 

 

创建时间：2021.01.13　　更新时间：

 

原文：https://www.cnblogs.com/guorongtao/p/14270681.html

内容总结

以上是互联网集市为您收集整理的Delphi Char、Pchar 、String 相互转换全部内容，希望文章能够帮你解决Delphi Char、Pchar 、String 相互转换所遇到的程序开发问题。 如果觉得互联网集市技术教程内容还不错，欢迎将互联网集市网站推荐给程序员好友。

内容备注

版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 gblab@vip.qq.com 举报，一经查实，本站将立刻删除。

内容手机端

扫描二维码推送至手机访问。

本文链接：https://qyyshop.com/info/1239451.html

来源：【匿名】