Советы по Delphi

       

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


Кто-нибудь знает быстрый алгоритм поиска и замены всех найденных подстрок sub1 на sub2 в строке str?

Это должно работать:

function ReplaceSub(str, sub1, sub2: String): String;varaPos: Integer;rslt: String;beginaPos := Pos(sub1, str);rslt := '';while (aPos <> 0) do beginrslt := rslt + Copy(str, 1, aPos - 1) + sub2;Delete(str, 1, aPos + Length(sub1) - 1);aPos := Pos(sub1, str);end;Result := rslt + str;end;

Спасибо за исправление ошибки. [000252]



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