......
var
p : ^string;
t,s: string;
s:=self.edit1.text;
p:=@s;
t:=p^;
showmessage(t);
///可以显示edit1.text的值,如果改为
p : pchar;
则无法显示!
求:
1,原因!2,pchar的相关资料!
var
p : ^string;
t,s: string;
s:=self.edit1.text;
p:=@s;
t:=p^;
showmessage(t);
///可以显示edit1.text的值,如果改为
p : pchar;
则无法显示!
求:
1,原因!2,pchar的相关资料!
p : pchar;
t,s: string;s := self.edit1.text;
p := pchar(s);
t := p;
showmessage(t);
P := @s[1] ;
//t := P^ ;
t := p ; // 从 Delphi 开发人员指南可以看到,String的结构 兼容 PChar 的结构 ,
// PChar 可以直接赋指给 String ;
ShowMessage(t) ;
下面给t赋值就这样t :=StrPas(p);
showmessage(t);你看能不能显示,肯定可以