|
|
导航: |
论坛 -> DELPHI技术
斑竹:liumazi,sephil |
|
作者: |
|
2004/3/25 14:51:53 |
标题: |
大家快来帮帮我啊!如何将string转换成char啊 |
浏览:1090 |
|
加入我的收藏 |
楼主: |
写个例子给我吧.. 最好加个详细的说明!
----------------------------------------------
is me ,me,me,me |
作者: |
zizii (高高高级馒头) |
★☆☆☆☆ |
-
|
神秘会员 |
|
2004/3/25 14:53:28 |
1楼: |
var s:string; c:pchar; begin s:='2ccc.com'+#13+'good website.'; c:=PChar(s); messagebox(handle,'test',c,0); end;
----------------------------------------------
维护世界和平,共创美好盒子。
|
作者: |
bios (阿贡) |
★☆☆☆☆ |
-
|
盒子中级会员 |
|
2004/3/25 14:59:49 |
2楼: |
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;
----------------------------------------------
|
作者: |
zizii (高高高级馒头) |
★☆☆☆☆ |
-
|
神秘会员 |
|
2004/3/25 15:04:53 |
3楼: |
bios你的那个处理UBB的软件写的太不精炼了把,转换了这么多重复的颜色,还有空格也不处理,需要好好修改修改。
----------------------------------------------
维护世界和平,共创美好盒子。
|
作者: |
bios (阿贡) |
★☆☆☆☆ |
-
|
盒子中级会员 |
|
2004/3/25 15:11:29 |
4楼: |
ZIZII哥得等偶应付完 毕业设计了! 现在已经很累了因为 GOOGLE搜索也找不到好的代码 ZIZII哥的站上有没有 “跨进程”的代码啊
----------------------------------------------
|
作者: |
|
2004/3/25 15:11:45 |
4楼: |
定义一个字符串指针,然后对指针操作
----------------------------------------------
-
|
|