Umlaute in String ersetzen

[Andreas L.]

Hi,
gibt es schon eine Funktion die mir Umlaute wie ß, ö, ü, ä, usw. in einen String mit ss, oe, ue, ae ersetzt? Hintergrund: Ich lese Bezeichnungen und Namen aus einer Datei und weiß diese Werte dynamisch generierten Komponenten zu. Solche Zeichen sind aber nicht als Komponentenname erlaubt.

Kennt jemand so eine Funktion? Ansonsten muss ich mir die wohl selber bauen.

[Namenloser]

stringreplace ist das stichwort. Dazu musst du aber die unit "strutils" einbinden.

[Andreas L.]

Zitat von NamenLozer:

stringreplace ist das stichwort. Dazu musst du aber die unit "strutils" einbinden.

StringReplace ist mir bekannt. Das muss ich dann aber für jedes Umlaut einzeln ausführen. Außerdem ist es sehr langsam. Da muss es doch schon was Delphi-Internes geben...

[Namenloser]

Dann fällt mir eigentlich nur noch sowas ein:

Delphi-Quellcode:

function ErsetzeUmlaute(s: string): string;
var i: integer;
begin
  for i := 1 to length(s) do
  begin
    Case s[i] of
    'ä': result := result+'ae';
    'ü': result := result+'ue';
    'ö': result := result+'oe';
    'ß': result := resultü'ss';
    else: result := resultüs[i];
    end;
  end;
end;

Oder gibt es was eleganteres?

[Christian Seehase]

Moin Andreas,

ist auch sichergestellt, dass es sich nur um diese Sonderzeichen handeln kann, und nicht etwa auch é usw. dort auftauchen können?

[Andreas L.]

Zitat von Christian Seehase:

Moin Andreas,

ist auch sichergestellt, dass es sich nur um diese Sonderzeichen handeln kann, und nicht etwa auch é usw. dort auftauchen können?

Da der User diese Werte selber in Dateien eintragen kann könnte dies natürlich auch passieren.

[marabu]

Hallo Andreas,

vielleicht findest du in folgendem thread noch ein paar Denkanstöße: StringReplace einmal auslösen für alle Umlaute?

Grüße vom marabu

[Jürgen Thomas]

Hallo,

in meiner Frage [dp]StringReplace automatisch - was geht schnell und einfach?[/dp] wurde Folgendes empfohlen:

• in (konstanten oder variablen) Arrays arrSearch und arrReplace alle gewünschten Konvertierungen vorsehen
• Datei als String einlesen (für FileStream ist die Dateigröße bekannt)
• in einer Schleife für jedes Element von arrSearch/arrReplace mit StringReplace bearbeiten
• dann den String wieder als Textdatei speichern

Gruß Jürgen

[/edit]Nachtrag (@Manuel 3_of_8 in #9)
Meine Frage war allgemeiner formuliert worden, und dort werden bei der Suche Strings (nicht Chars) verwendet. Bei der Suche nach Chars kann man es natürlich mit einer Schleife erledigen.

[3_of_8]

Das dürfte recht langsam sein, da die Schleife immer wieder für jeden Umlaut durchlaufen wird und nicht einmal für alle zusammen.

[Namenloser]

Delphi-Quellcode:

function ErsetzeUmlaute(s: string): string;
var i,j: integer;
const
      AnzUmlaute =7;
      Umlaute: Array[0..AnzUmlaue-1] of char = ('ä','ö','ü','ß','Ä','Ö','Ü');
      Ersetzt: Array[0..AnzUmlaue-1] of string = ('ae','oe','ue','ss','Ae','Ue','Oe');
begin
  for i := 1 to length(s) do
  begin
    for j := 0 to anzumlaute-1 do
    begin
      if s[i] = Umlaute[j] then
      begin
        result := result+umlaute[j];
        break;
      end
      else
        result := result+s[i];
    end;
  end;
end;

Ich habs mal etwas erweitert. Ich denke aber, dass es nicht besonders schnell ist wegen "result:=result+...".