怎么去掉字符串中间的单引号，在线等，最后58分了(58分)

darlingpeng · 2008-05-25

怎么去掉字符串中间的单引号，在线等
eg: str='GL'#0'Y' 我怎么把它变为 str='GL#0Y' 有没有知道的哥们，帮帮小弟啊
我用AnsiReplaceText 怎么去不掉啊

delphilxh · 2008-05-25

str='GL'#0'Y'
这个里面其实没有单引号呀

darlingpeng · 2008-05-25

to delphilxh,
就是把 str='GL'#0'Y' 改为 str='GL#0Y'；

darlingpeng · 2008-05-25

该怎么弄呢

darlingpeng · 2008-05-25

有没有知道的哥们啊

delphilxh · 2008-05-25

str='GL'#0'Y'
这个字符串其实是4个字符，G + L+ Chr(0) +Y
明白了吗？
你看看str的长度就知道了是4

darlingpeng · 2008-05-25

to
delphilxh,
我知道你的意思，但是怎么把它变为改为 str='GL#0Y' 呢？

MouseSoft · 2008-05-25

var s1,s2:string;
i:integer;
begin
for i:=1 to length(s1)do
if s1 <> ''''' then
s2:= s2 + s1;
end;

delphilxh · 2008-05-25

str:='GL'#0'Y' ;
str2:='';
for I := 1 to Length(str)do
if str=#0 then
str2:=str2+'#0'
else
str2:=str2+str;

lixin0117 · 2008-05-26

StringReplace 替換掉不就可以了。