Ä, Ö, Ü trotz Utf8ToAnsi nicht richtig

[napsterxx]

Also ich lese RSS News aus und erhalte dauert:
Ftär die Bahnmitarbeiter ...

Ich verwende aber Utf8ToAnsi, warum geht es dann nicht?

[shmia]

ich würde erstmal einen kleinen Test machen:
ShowMessage(Utf8ToAnsi(AnsiToUtf8('Umlaute: äöüÄÖÜß'))); Nach der doppelten Wandlung sollte ja der Ursprungstext wieder herauskommen.
Und dann besteht der Verdacht, dass dein Ausgangsstring nicht (oder nicht korrekt) mit UTF-8 kodiert ist.

[himitsu]

ist "Ftär" das was rauskommt, oder reingeht?
und soll das "für" heißen? (wenn ja, dann sieht es nicht unbedingt wie UTF8 aus, es sei denn du wandelst einen UTF8-String nochmals in einen UTF8-String )

Ich dachte Utf8ToAnsi (von Delphi) gibt einen Leerstring raus, wenn die Umwandlung nicht klappt.

[Bernhard Geyer]

Hier wird irgendwo etwas zu viel "Ver-UTF8"
Utf8ToString(Fär) -> FTär
Utf8ToString(FTär) -> FTär
Utf8ToString(FTär) -> FTär
Utf8ToString(FTär) -> FTär

[napsterxx]

Listbox.Lines.Add(UTF8Decode(sTitle)); Ich muss UTF8Decode verwenden da mein Delphi noch nicht UTF8ToString kennt. Das Problem nun, ich erhalte

Zitat:

ä

so etwas, jedoch nicht ä. Selbst wenn ich noch 80 mal UTF8Decode da vor schreibe, und wenn ich dann UTF8ToAnsi benutze wirds noch schlimmer.

[napsterxx]

*push*

[himitsu]

ist dieses "Ftär" nun in sTitle, oder das was nach UTF8Decode rauskommt?

[napsterxx]

Das ist in sTitle standartmäßig, jetzt bin ich soweit, das ich das erhalte:
Fär ....

[himitsu]

"Ftär" entspricht einem 3-fachen UTF8 von "Ftär"
da wäre es wohl besser mal rauszubekommen warum das 3-mal codiert wurde,
als zu versuchen es richtig zu dekodieren.

Delphi-Quellcode:

S := 'Ftär';  // S = 'Ftär'
S := UTF8Decode(S);  // S = 'Ftär'
S := UTF8Decode(S);  // S = 'Ftär'
S := UTF8Decode(S);  // S = 'Ftär'
S := UTF8Decode(S);  // S = ''  << Fehler: war kein UTF8

S := UTF8Decode('Fär');  // S = 'Fär'

Sowas zum Dekodieren wäre ja nicht unbedingt die optimalste Lösung:

Delphi-Quellcode:

Function TryUTF8Decode(S: UTF8String): WideString;
  Begin
    Result := S;
    While UTF8Decode(S) > '' do Begin
      Result := UTF8Decode(S);
      S      := Result;
    End;
  End;