超弱问题: Pchar 的加法?

qufo 2004-07-16 05:17:58
var
p1,p2,p3:Pchar;
begin
p1:=Pchar('This is ');
p2:=Pchar('a line');

p3:=p1+p2; <<--这个要怎么写,我想让p3='This is a line'

end;


...全文
160 5 打赏 收藏 转发到动态 举报
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
longtusoft 2004-07-16
  • 打赏
  • 举报
回复
p3:= Pchar(string(p1)+string(p2));
GoldShield 2004-07-16
  • 打赏
  • 举报
回复
不好意思,我是说一楼的方法
GoldShield 2004-07-16
  • 打赏
  • 举报
回复
楼上的方法好像不行吧
fei19790920 2004-07-16
  • 打赏
  • 举报
回复
var
p1, p2, p3: Pchar;
begin
p1 := Pchar('This is ');
p2 := Pchar('a line');
GetMem(p3, Length(p1) + Length(p2) + 1);
StrCopy(p3, p1);
StrCat(p3, p2);
showmessage(string(p3));
//注意用完后释放
FreeMem(p3);

end;
yakid06 2004-07-16
  • 打赏
  • 举报
回复
p3 := StrCat(p1, p2);

5,379

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧