all__
Админ
Сообщений: 874
Зарегистрирован: 01.2010
|
Замена подстроки в строке - многократное вхождение
В дополнении к теме про Удаление подстроки из строки в 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 |
|