Работа со сточками.

Здравствуйте. Вопрос заключается в следующем: Дано строки S и S0. Удалить из строки S все подстроки, совпадающиес S0. Если совпадающих подстрок нет, то вывести строку S без изменений.Подскажите пожалуйста как это решить, а то я совсем запутался..
6 ответов

Что понимается под "подстрокой"? Одна буква - тоже подстрока?


можно через pos, но лучше через центр помощи


S := StringReplace(S, S0, '', [rfReplaceAll]);


Что понимается под "подстрокой"? Одна буква - тоже подстрока?
 Насколько я знаю 1 буква, тоже подстрока, а тут иметься введу много букв =)aleksh Через пос у меня не очень получаеться =( как это сделать через центр помощи?? Подскажите пожалуйста.Добавлено через 3 минуты и 6 секундО, *****, спасибо за подсказку, попробую разобраться 


Цитата(***** @  5.11.2010,  08:54 )
S := StringReplace(S, S0, '', [rfReplaceAll]);
Т.е. требовалось целиком S0 удалить? А я-то уж прикидывал, как покрасивее написать вырезание подстрок.  


Всё, спасибо, разобрался.
program Project1;{$APPTYPE CONSOLE}uses  SysUtils;var s,s0: string;r: char;n,i,n1: integer;begin  write('Input string: ');  readln(s);  write('Input substring: ');  readln(s0);   n1:=pos(s0,s);    if n1=0 then write('No coincident string ');while n1>0 dobegindelete(s,n1,length(s0));n1:=pos(s0,s);end; Write('New string: ',s);  readln;end.