|
|
导航: |
论坛 -> DELPHI技术
斑竹:liumazi,sephil |
|
作者: |
|
2004/2/26 16:37:43 |
标题: |
|
加入我的收藏 |
楼主: |
var p:pchar; p:='1234458'; 这样做不行 那我要怎么做
----------------------------------------------
lsh |
作者: |
bios (阿贡) |
★☆☆☆☆ |
-
|
盒子中级会员 |
|
2004/2/26 16:45:48 |
1楼: |
procedure TForm1.Button1Click(Sender: TObject); var p:pchar; p1:pstring; p2,s,s1:string; begin p2:='123'; s:='1345'; s1:='fdasf'; p1:=@p2; edit1.Text :=p1^; p1^:=s; edit2.Text :=p1^; p:=pchar(s1); edit3.Text :=p^; edit4.Text :='; while p^<>#0 do begin edit4.Text :=edit4.Text +p^; inc(p); end; end;
此帖子包含附件:
大小:61.6K |
----------------------------------------------
|
|