5,388
社区成员
发帖
与我相关
我的任务
分享pchar可以转换为string类型吗？how do? 问题简单，请不要见笑！
pchar可以转换为string类型吗？how do? 问题简单，请不要见笑！
...全文
请发表友善的回复…
发表回复
liunini 2003-12-02
- 打赏
- 举报
搂主，程序改为：
procedure TForm1.Button1Click(Sender: TObject);
var i:pchar;
s:Dword ;
str:string ;
begin
s:=100;
getmem(i,101);
if getcomputername(i,s) then
str := StrPas(i);
end;
你试一下：）
procedure TForm1.Button1Click(Sender: TObject);
var i:pchar;
s:Dword ;
str:string ;
begin
s:=100;
getmem(i,101);
if getcomputername(i,s) then
str := StrPas(i);
end;
你试一下：）
lizhu 2003-12-02
- 打赏
- 举报
aiirii(ari)，对不起，我想让你帮我看一下，下面的代码有什么不对，
我运行的时候提示访问内存出错，就在转换时。
thank u!
procedure TForm1.Button1Click(Sender: TObject);
var i:pchar;
s:cardinal ;
str:string ;
begin
s:=100;
if getcomputername(i,s) then
str := StrPas(i);
end;
我运行的时候提示访问内存出错，就在转换时。
thank u!
procedure TForm1.Button1Click(Sender: TObject);
var i:pchar;
s:cardinal ;
str:string ;
begin
s:=100;
if getcomputername(i,s) then
str := StrPas(i);
end;
47522341 2003-12-02
- 打赏
- 举报
楼上；
aiirii 2003-12-02
- 打赏
- 举报
var s: string;
P: pchar;
begin
...
p := pchar(s);
s := StrPas(p);
P: pchar;
begin
...
p := pchar(s);
s := StrPas(p);
