Reguläre Ausdrücke

[shareholder]

ups, quelltext vergessen

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  r : TRegExpr;
begin
  r := TRegExpr.Create;
  r.Expression := 'Mutti';
  if r.Exec(Edit1.Text) then
    repeat
      r.Replace(Edit1.Text, '');
    until
      r.ExecNext;
  Edit2.Text := ???
end;

EDIT:
Es ist ganz einfach, kA wieso das Hilfe so kompliziert ist :-/

Delphi-Quellcode:

  r := TRegExpr.Create;
  r.Expression := '[aeiou]';
  Edit2.Text := r.Replace(Edit1.Text,'*');

Mich würde nun aber noch interessieren, welche Funktion Exec nun hat