| Статистика | 
|
|
Каталог статей
Замена подстрок
Кто-нибудь знает быстрый алгоритм поиска и замены всех
найденных подстрок sub1 на sub2 в строке str?
Это должно работать:
function ReplaceSub(str, sub1, sub2: String):
String;
var
aPos: Integer;
rslt: String;
begin
aPos := Pos(sub1, str);
rslt := '';
while (aPos <> 0) do
begin
rslt := rslt + Copy(str, 1, aPos - 1) + sub2;
Delete(str, 1, aPos + Length(sub1) -
1);
aPos := Pos(sub1, str);
end;
Result := rslt + str;
end;
|
|
|
Просмотров: 676
5
Оштрафовать
| Жаловаться на материал |
|
| Улучшенный поиск | | Поиск по сайту
Поиск по всему интернету
|
|
