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

***all__*** · 21.03.2010 15:04

В дополнении к теме про Удаление подстроки из строки в Delphi решил разобраться с Заменой подстроки в Delphi
Вот что получилось:

Код:

function ReplaceStr(Str, SubStr, Replace: string): string;

{замена подстроки в строке}

var

 i:Integer;

begin

 Result:= '';

 repeat

  i:=Pos(SubStr, Str);

  if i > 0 then begin

   Result:=Result+Copy(Str,1,I-1)+Replace;

   Str:=Copy(Str,i+Length(SubStr),MaxInt);

  end else Result:=Result+Str;

 until i<=0;

end;

Пример использования:

Код:

str:=ReplaceStr('Пример[пробел]строки[пробел]для[пробел]замены[пробел]подстрок','[пробел]', ' ');

Заменит [пробел] на пробелы, после чего в str будет содержаться:
'Пример строки для замены подстрок'

Похожие темы
Тема:		Автор	Ответов:	Просмотров:	Посл. сообщение
	Удалить подстроку - множественные вхождения подстроки	all__	5	3 237	21.03.2010 17:05 Посл. сообщение: clk824

Каскадный режим \| Линейный режим Замена подстроки в строке - многократное вхождение
Автор	Сообщение