Allgemeines Replace mit zwei Masken

[glkgereon]

es fängt ja schon damit an, das Create bei mir keine Parameter hat^^

Delphi-Quellcode:

procedure OnEditChange(Sender: TObject);
var S: String;
    R: TRegExpr;
begin
  try 
    R:=TRegExpr.Create;
    R.Expression:=Edit1.Text;
    R.InputString:=Edit2.Text;
    S:=Edit3.Text;
    
//    foreach (string groupname in regex.GetGroupNames()) { 
//      S:=StringReplace(S,'%'+groupname+'%',match.Groups[groupname].Value,[rfReplaceAll]);
//    } 
  except
    S:='';
  end;
  Label1.Caption:=Ss; 
end;

könnte vielleicht einer von euch mal seine RegExpr-Version anhängen?