Замена подстроки в строке - многократное вхождение
Автор Сообщение
all__ Не на форуме
Админ
*******

Сообщений: 874
Зарегистрирован: 01.2010
Сообщение: #1
Замена подстроки в строке - многократное вхождение
В дополнении к теме про Удаление подстроки из строки в 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 будет содержаться:
'Пример строки для замены подстрок'





Лучшая благодарность - "Мне нравится", +1 или Like! Вверху страницы.
(Последний раз сообщение было отредактировано 21.03.2010 в 15:05, отредактировал пользователь all__.)
21.03.2010 15:04
Вебсайт Найти все сообщения Цитировать это сообщение
Создать ответ 


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