Müller -> Müller (oder wie wandle ich den Zeichensatz um?)

[FriFra]

Wie kann ich solche Sonderzeichen (z.B. ü in ü) in normale Zeichen umwandeln?

[johny]

Mit dieser Funktion werden aus einem String ':' und '.' gelöscht. Du kannst die Funktion so abwandeln, dass bestimmte Zeichen durch andere ersetzt werden.

Delphi-Quellcode:

function ChangeString(s:string):string;
var
 iPosition : integer;
 sString : string;
begin
 iPosition := 1;
 while iPosition <= length(s) do
 begin
  case s[iPosition] of
   '.',':':
   iPosition := iPosition+1;
   else
   sString := sString + s[iPosition];
   iPosition := iPosition + 1;
  end;
 end;
 Result := sString;
end;

Delphi-Quellcode:

procedure ...
var
sString : string;
begin
sString := 'Umzuwandelnder Text'
ChangeString(sString);
end;

[FriFra]

Eigentlich hae ich gehofft,dass es dafür eine bessere Methode gäbe...

Jetzt habe ich es erstmal so gelöst:

Delphi-Quellcode:

          fullname := StringReplace(fullname, 'ä', 'ä', [rfReplaceAll]);
          fullname := StringReplace(fullname, 'ö', 'ö', [rfReplaceAll]);
          fullname := StringReplace(fullname, 'ü', 'ü', [rfReplaceAll]);
          fullname := StringReplace(fullname, 'Ä', 'Ä', [rfReplaceAll]);
          fullname := StringReplace(fullname, 'Ö', 'Ö', [rfReplaceAll]);
          fullname := StringReplace(fullname, 'Ãœ', 'Ü', [rfReplaceAll]);
          fullname := StringReplace(fullname, 'ß', 'ß', [rfReplaceAll]);

Es gibt aber dann wieder Probleme, wenn andere Zeichen als äöüÄÖÜß vorkommen...

[Christian Seehase]

Moin FriFra,

hast Du's mal mit WideCharToString probiert?
Es könnte sich bei Dir um einen Multibyte oder Unicode Zeichensatz handeln.

[FriFra]

WideCharToString scheint nicht der richtige Weg zu sein...

Ich lese den bettr. String mit readln (textfile) aus einer Netscape-Konfigurationsdatei aus... da werden Umlaute leider in dieser Form gespeichert...

[roderich]

hi FriFra,

das gleich Thema hatten wir vor Kurzem schon.
Such mal nach OEM2Ansi

Roderich

[FriFra]

Zitat von roderich:

hi FriFra,

das gleich Thema hatten wir vor Kurzem schon.
Such mal nach OEM2Ansi

Roderich

Leider führt das nicht zur Lösung des Problems...

OEM2Ansi('Müller') = 'M++ller'
Ansi2OEM('Müller') = 'MǬller'

[Bernhard Geyer]

und kann deshalb mit der Funktion UTF8ToWideString (Jedi Code Library) oder UTF8Decode (System.pas) in einen entsprechenden Widestring umgewandelt werden.

[FriFra]

Danke

Jetzt klappt es.