Umlaute und Sonderzeichen "lesbar" ersetzen

[t.roller]

2 Memos:
Memo1 mit "ungültigen" Zeichen
Memo2 nach Filterung

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var I : Integer; str : CHAR;
const valid = ['A'..'z','0'..'9',#10,#13,',','.',' ','-','+']; 
// beliebig erweitern
begin
  for I := 1 to Length(Memo1.Text) do
  BEGIN
    str:= Memo1.Text[I];
    if (str in valid) then Memo2.Text:= Memo2.Text + str;
  END;
end;