Replace in einem HTML-Text mittels TRegExpr

[Khabarakh]

So sollte es auch ohne TRegExpr funktionieren:

Delphi-Quellcode:

procedure Foo(var s: String; const OldPattern, NewPattern: string);
var
  i: Integer;
  Tag: Boolean;
begin
  i := 1;
  while i - 1 <= Length(s) - Length(OldPattern) do
  begin
    case s[i] of
      '<': Tag := true;
      '>': Tag := false;
      else
        if not Tag and (Copy(s, i, Length(OldPattern)) = OldPattern) then
        begin
          Delete(s, i, Length(OldPattern));
          Insert(NewPattern, s, i);
        end;
    end;
    Inc(i);
  end;
end;