Каскадный режим | Линейный режим

***all__*** · 21.03.2010 9:17

Функция удаляет множественные вхождения подстроки в исходной строке.

Код:

function DeleteSubStr(str, subStr: string): string;

begin

  while pos(subStr, str)>0 do

    str:=copy(str,1,pos(subStr,str)-1) +

  copy(str,pos(subStr,str)+length(str),length(str));

  Result:=str;

end;

Пример применения:

Код:

str:=DeleteSubStr('Стр<удалить>ока выбр<удалить>анная для пр<удалить>имера','<удалить>');

В результате получим:
str = 'Строка выбранная для примера'

***clk824*** · 21.03.2010 11:13

#5

***all__*** · 21.03.2010 14:37

У меня сейчас Delphi7 и там не работает str_replace, в помощи и в модулях такого тоже нет. Может как-то по другому называется эта функция?

***all__*** · 21.03.2010 15:07

Добавил функцию для замены подстрок в строке, может использоваться как альтернатива удаления подстрок.
Замена подстроки в строке с многократным вхождением

***clk824*** · 21.03.2010 17:05

Прошу прощения, я просто не обратил внимания на раздел форума и поторопился с ответом Smile

.

Похожие темы
Тема:		Автор	Ответов:	Просмотров:	Посл. сообщение
	Замена подстроки в строке - многократное вхождение	all__	0	1 985	21.03.2010 15:04 Посл. сообщение: all__

Каскадный режим \| Линейный режим Удалить подстроку - множественные вхождения подстроки
Автор	Сообщение