ErsetzeUmlaut

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.

Lazarus ErsetzeUmlaut
ErsetzeUmlaut in Aktion