已采纳 黄昊轩 新手守护 s1:=s1+' '; w:=0; repeat m:=w; if pos(s2,s1)>0 then inc(w); if m<>w then delete(s1,1,pos(s2,s1)+length(s2)-1); until pos(s2,s1)=0;
