Umlaute und Sonderzeichen "lesbar" ersetzen

[t.roller]

Eine Orgie sind diese 7 Zeilen nicht:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Text:=  StringReplace(Memo1.Text, 'ä', 'ae',[rfReplaceAll]);
Memo1.Text:=  StringReplace(Memo1.Text, 'ö', 'oe',[rfReplaceAll]);
Memo1.Text:=  StringReplace(Memo1.Text, 'ü', 'ue',[rfReplaceAll]);
Memo1.Text:=  StringReplace(Memo1.Text, 'Ä', 'Ae',[rfReplaceAll]);
Memo1.Text:=  StringReplace(Memo1.Text, 'Ö', 'Oe',[rfReplaceAll]);
Memo1.Text:=  StringReplace(Memo1.Text, 'Ü', 'Ue',[rfReplaceAll]);
Memo1.Text:=  StringReplace(Memo1.Text, 'ß', 'ss',[rfReplaceAll]);
end;