Delphi-Help

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;

function ReplaceStr(const S, Srch, Replace: string): string;

{замена подстроки в строке}

var

  I: Integer;

  Source: string;

begin

  Source := S;

  Result := '';

  repeat

    I := Pos(Srch, Source);

    if I >

    0 then

    begin

      Result := Result + Copy(Source, 1, I - 1) + Replace;

      Source := Copy(Source, I + Length(Srch), MaxInt);

    end

    else

      Result := Result + Source;

  until I<

  = 0;

end;

function StrReplace(const Str, Str1, Str2: string): string;

// str - исходная строка

// str1 - подстрока, подлежащая замене

// str2 - заменяющая строка

var

  P, L: Integer;

begin

  Result := str;

  L := Length(Str1);

  repeat

    P := Pos(Str1, Result); // ищем подстроку

    if P > 0 then

    begin

      Delete(Result, P, L); // удаляем ее

      Insert(Str2, Result, P); // вставляем новую

    end;

  until P = 0;

end;