s:='xayabcxbcgydefgh';
j:=Pos('x',s);
if j>0 then
begin
repeat
i:=Pos('y',s);
tmpstr2:=copy(s,j,i);
s:=freplace.FastReplace(s,tmpstr2,'',false);
j:=Pos('x',s);
until j=0;
end;
(freplace.fastreplace是写好的一个替换字符串的函数,在这里的意思是去掉x到y间的字符,经过测试此函数是可用的)
结果应该是abcdefgh,但是却是abcgh。
j:=Pos('x',s);
if j>0 then
begin
repeat
i:=Pos('y',s);
tmpstr2:=copy(s,j,i);
s:=freplace.FastReplace(s,tmpstr2,'',false);
j:=Pos('x',s);
until j=0;
end;
(freplace.fastreplace是写好的一个替换字符串的函数,在这里的意思是去掉x到y间的字符,经过测试此函数是可用的)
结果应该是abcdefgh,但是却是abcgh。
Delete(s,0,i);