Regex: Alle nicht übereinstimmenden Zeichen entfernen

[Der schöne Günther]

MatchAgain?

Delphi-Quellcode:

procedure TForm25.FormCreate(Sender: TObject);
const
   myStr: String = 'Hallo Welt. Ich denke, das Wetter ist heute 100 mal dööfer als gestern. So meine Meinung.';
var
   regEx: TPerlRegEx;
begin

   regEx := TPerlRegEx.Create();
   try

      regEx.Subject := myStr;
      regEx.RegEx := '([a-zA-Z0-9äöüÄÖÜß ]+)?';
      regEx.Start := 0;

      while regex.MatchAgain() do edit1.text := edit1.text + regex.MatchedText;

      // Ergibt "Edit1Hallo Welt Ich denke das Wetter ist heute 100 mal dööfer als gestern So meine Meinung"

   finally
      regEx.Destroy();
   end;

end;