eine Frage zur Umwandlung einer Zeichenkette -> Ascii Zeichen.
Ich gebe ein Wort in einem TEdit Control ein, speichere die in einem String.
Das Wort möchte ich in die einzelnen Zeichen zerlegen und mit den selben Buchstaben
ein neues Wort für ein Rätselspiel neu zusammenstellen.
Das funktioniert erstmals auch gut, solange kein Umlaut im Spiel ist.
Daher wollte ich die Eingabe mithilfe der Funktion Utf8ToAnsi in Ansi-Zeichen
umwandeln, jedoch funktioniert das, so wie ich es mache, nicht. Wenn ich ''Für' eingebe
habe ich vor der Funktion Utf8ToAnsi 4 Zeichen in der Zeichenkette und auch nach der Umwandlung.
Das 'ü' besteht aus den Ordinalzahlen $C3 und $BC, wie es eben in UTF8 verwendet ist.
Code: Alles auswählen
sErgebnis : String = '';
sEingabe : AnsiString = '';
iEingabe : Integer = 0;
sErgebnis := txtEingangswort.Text;
iEingabe := Length(sErgebnis);
sEingabe := Utf8ToAnsi(sErgebnis); //<- Das hat keinen Effekt
iEingabe := Length(sEingabe);
Danke