Chinaunix首页 | 论坛 | 博客
  • 博客访问: 1231971
  • 博文数量: 252
  • 博客积分: 1218
  • 博客等级: 少尉
  • 技术积分: 2808
  • 用 户 组: 普通用户
  • 注册时间: 2011-06-19 02:33
文章分类

全部博文(252)

文章存档

2019年(3)

2018年(10)

2016年(1)

2015年(20)

2014年(115)

2013年(46)

2012年(37)

2011年(20)

分类: WINDOWS

2012-09-25 10:08:08

procedure TForm1.Button2Click(Sender: TObject);
var
    s:string;
    p:pchar;
begin
     p:='good';
     s:=p;   //pChar-->String  可直接赋值
     //s:=strpas(p); //pChar-->String;
     showmessage(s);

end;

procedure TForm1.Button3Click(Sender: TObject);
var
    s:string;
    p:pchar;
begin
     s:='bad';
     p:=pchar(s); //String-->pChar 类型映射
     showmessage(p);
end;

另外:由于String 第0个是存放字符长度的,可这么写

procedure TForm1.Button1Click(Sender: TObject);
var
s:String;
p:pchar;
begin
    s:= 'new';
    label2.caption:=intTostr(Length(s));{3是字符串的长度}

    p:=@s[1];   //String-->PChar 

    showMessage(p);
end;

 

转自:

http://gzkhrh.blog.51cto.com/30447/155304

http://topic.csdn.net/t/20011109/23/363575.html

 

阅读(748) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~
评论热议
请登录后评论。

登录 注册