Удаление из строки

[program123]

s:string - Вводимый текст
s2 - Поиск в s

Если в s найдено s2 то надо чтобы эти слова удалялись, удаляет только первое найденное слово, как сделать чтобы удалялись все. Заранее спасбио

 l:=pos(s2,s);
 delete(s,l,length(s2));

[Chudo4258]

Можно так попробывать:

var p:boolean;
.................
p:=true;
while p do
 begin 
  l:=pos(s2,s);
  delete(s,l,length(s2));
  if i=0 then p:=false else p:=true;
 end;

[Stilet]

program123

Если язык Делфи то можно воспользоваться функцией StringReplace.
Она позволит удалить все вхождения.
Вот пример неплохой у Аригато:
http://www.programmersforum.ru/showt...=StringReplace

[program123]

Chudo4258, удаляет не совсем то что надо, я пробовал только repeat ))
Stilet, язык паскаль.

[SERG1980]

Цикл while

while pos(s2,s)>0 do delete(s,l,length(s2));