Советы по Delphi

   Доступ антиплагиат вуз по материалам http://dostup-antiplagiat-vuz.ru. |       

Замена подстрок


Кто-нибудь знает быстрый алгоритм поиска и замены всех найденных подстрок 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;

Спасибо Сергею Шамайтис за исправление ошибки. [000252]



Содержание раздела