Verweis: | Str2Html-Html2Str |
Uses: | StrUtils |
Eingabe: | Text(String) |
Ausgabe: | Text(String) |
Funktion: | ändert die Umlaute wie Ä in eine alternative schreibweise wie Ae ab und gibt sie im String zurück. |
Diese Funktion kann Umlaute wie Ä in einen Hilfsumlaut wie Ae umwandeln. Vielleicht kennen Sie das aus dem Kreuzworträtsel.Dabei wird ein ß zu einem ss.
Function ErsetzeUmlaut(MitUmlaute:String):String;
const
Umlaut : array[1..7] of String = ('ä','Ä','ö','Ö','ü','Ü','ß');
UmlautErsatz: array[1..7] of String = ('ae','Ae','oe','Oe','ue','Ue','ss');
Var
f:Integer;
Begin
Result:='';
For f:=1 to High(Umlaut) do
MitUmlaute :=
StringReplace(MitUmlaute, Umlaut[f],UmlautErsatz[f], [rfReplaceAll]);
Result:=MitUmlaute;
end;
Vorbereitung
Vorbereitung: Erstellen sie eine IDE Anwendung und ziehen Sie einen TButton auf die Form. Binden Sie die Unit StrUtils mit der Uses-Klausel in die Anwendung ein. Doppelklicken sie auf den Button und ersetzen Sie das Ereignis durch folgenden Quelltext:
Aufruf
procedure TForm1.Button1Click(Sender: TObject);
Var
KeineUmlaute:String;
begin
KeineUmlaute:=ErsetzeUmlaut
('Das hätten wir nicht gedacht. Echt heiß!');
ShowMessage(KeineUmlaute);
end;
Dieser Aufruf führt zu diesem Ergebnis.
