字符串查找问题！

[8water]

各位高手，问你们一下，如何在字符串中 比如 str :='abcde' 中 如何找出 bc 使其置空 ，于是 str 成为 'ade' ??

[Northwindrocker]

StringReplace('abcde', 'cd', '', [rfReplaceAll]);
楼上的你写这么多还不如这一句啊！stringReplace带flag（rfReplaceAll,rfIgnoreCase）;
好好看看DELPHI的HELP吧！

[jin_zai]

str:='abcde';
substr:='bc';
p:=pos(substr,str);
q:=p+length(substr)+1;
str:=copy(str,1,p)+copy(str,q,length(str)-q);

[jin_zai]

不好意思，有点小错误，改为：
str:='abcde';
substr:='bc';
p:=pos(substr,str);
q:=p+length(substr);
str:=copy(str,1,p-1)+copy(str,q,length(str)-q+1);

[noil0125]

var
s,s1:string;
begin
s:='abcde';
s1:='bc';
Delete(s,pos(s1,s),length(s1));
showmessage(s);
end;

[yuanyu368]

^_^

[tigerhohoo]

^_^ ^_^

[wooden954]

^_^ ^_^
^_^ ^_^
^_^ ^_^
^_^ ^_^
^_^ ^_^
^_^ ^_^
^_^ ^_^
^_^ ^_^
^_^ ^_^
^_^ ^_^
^_^ ^_^
^_^ ^_^
^_^ ^_^
^_^ ^_^
^_^ ^_^

[hthunter]

StringReplace('abcde', 'cd', '', [rfReplaceAll]);

[Leobo]

調用我的這個函數試試
function SwapStr(xString, xOldSplit, xNewSplit: String): String;
var
mPos: Integer;
mOldLen: Integer;
begin
if CompareText(xOldSplit, xNewSplit)<>0 then
begin
mPos:= AnsiPos(xOldSplit, xString);
mOldLen:= Length(xOldSplit);
while mPos>0 do
begin
Delete(xString, mPos, mOldLen);
Insert(xNewSplit, xString, mPos);
mPos:= ansiPos(xOldSplit, xString);
end;
end;
Result:=xString;
end;
樓上各位大蝦隻能修改第一個要替換的
不能修改字串中所有的