RegEx unter Delphi

[BaedDog]

Hab das jetzt selbst hinbekommen, muste das in einer Schleife ersetzen lassen, also hier der richtige Code:

Delphi-Quellcode:

function regExReplace(ARegEx, AReplace, AText: String): String;
begin
  with TPerlRegEx.Create(nil) do
  begin
    RegEx         := ARegEx;
    Subject       := AText;
    Options       := [preCaseLess,preSingleLine];
    Replacement   := AReplace;

    if (Match() = TRUE) then
    repeat
      Replace;
    until not MatchAgain(); 

    result := Subject;
    Free();
  end;