5,388
社区成员
发帖
与我相关
我的任务
分享STRING TO PCHAR
STRING类型转化为PCHAR类型的问题哦，困扰很久了。
用强制转换时会出问题，但用字符数组循环提取又太麻烦了。
例如：
FUNCTION TRANS:PCHAR;
VAR
S,S1,S2:STRING;
BEGIN
S:='';
S1:='取值A';
S:=S+S1;
S2:='取值B';
S:=S+S2;
RESULT:=PCHAR(S);//会出问题！
END;
该如何解决？讨论有分！
用强制转换时会出问题，但用字符数组循环提取又太麻烦了。
例如：
FUNCTION TRANS:PCHAR;
VAR
S,S1,S2:STRING;
BEGIN
S:='';
S1:='取值A';
S:=S+S1;
S2:='取值B';
S:=S+S2;
RESULT:=PCHAR(S);//会出问题！
END;
该如何解决？讨论有分！
...全文
请发表友善的回复…
发表回复
devil_li 2003-06-27
- 打赏
- 举报
是的，s是局部变量，这样可能会有问题：再次访问该字符串结果可能会不对(该内存地址被别的过程改写了)，不过也不会报错。讲出你的具体要求吧，看看怎么改进.
cow8063 2003-06-27
- 打赏
- 举报
没问题呀
firetoucher 2003-06-27
- 打赏
- 举报
会出问题,因为s局部变量,在函数退出后就会卸载,但pchar的指针仍然在无效的string上,delphi的建议是用内存拷贝,看帮助吧,里面有!
DWGZ 2003-06-27
- 打赏
- 举报
我也看不出来
用StrPCopy试试
用StrPCopy试试
blueshu 2003-06-27
- 打赏
- 举报
看不出来
things 2003-06-27
- 打赏
- 举报
我用D6测试也没问题呀！
outer2000 2003-06-27
- 打赏
- 举报
FUNCTION TRANS:PCHAR;
VAR
S,S1,S2:STRING;
BEGIN
S:='';
S1:='取值A';
S:=S+S1;
S2:='取值B';
S:=S+S2;
RESULT:=PCHAR(S);//会出问题！
END;
procedure TForm1.Button1Click(Sender: TObject);
begin
showmessage(trans)
end;
我用D7，没问题的啊，测试了；
VAR
S,S1,S2:STRING;
BEGIN
S:='';
S1:='取值A';
S:=S+S1;
S2:='取值B';
S:=S+S2;
RESULT:=PCHAR(S);//会出问题！
END;
procedure TForm1.Button1Click(Sender: TObject);
begin
showmessage(trans)
end;
我用D7，没问题的啊，测试了；
devil_li 2003-06-27
- 打赏
- 举报
我试了一下，没问题阿，你是在哪里用的TRANS函数？把你用TRANS函数的代码贴出来
huayuxing 2003-06-27
- 打赏
- 举报
RESULT:=S[1];//
firetoucher 2003-06-27
- 打赏
- 举报
RESULT:=S[1];//
firetoucher 2003-06-27
- 打赏
- 举报
RESULT:=PCHAR(S[1]);//
