Ausgabe eines UTF8-Strings in UTF8-Darstellung

[Bernhard Geyer]

Wie kann ich einen UTF8-String auch als solchen Ausgaben.

Sprich: äöü soll als äöü ausgegeben werden.

Mit ungeänderten Code kommt nur äöü raus

[Bummi]

sowas?

Delphi-Quellcode:

var
 Usr:UTF8String;
 Asr:AnsiString;
begin
  Usr := 'äöü';

  Setlength(Asr,Length(Usr));
  Move(Usr[1],Asr[1],Length(Usr));
  Showmessage(asr);
end;



齅äöü >> Length(Usr)=9

齅äöü1234567890 >> Length(Usr)=19

[himitsu]

Delphi-Quellcode:

var
  U: UTF8String;
  R: RawByteString;
  S: string;

U := 'irgendwas mit ä';  // Delphi konvertiert das alleine, da bei diesem "AnsiString"-Typen die CodePage auf UTF-8 steht
R := U;
SetCodePage(R, $FFFF, False);  // R hat die CodePage kopiert bekommen, daher explizit auf RAW umstellen
S := R;  // *1
ShowMessage(S);

// kurz
R := UTF8Encode('irgendwas mit ä');
SetCodePage(R, $FFFF, False);  // R hat die CodePage kopiert bekommen, daher explizit auf RAW umstellen
ShowMessage(R);  // *1

1) R muß auf RAW stehen, da Delphi sonst denkt es sei was Anderes und würde es dann nach Unicode umwandeln.
Bei UTF-8 wäre nun alles umsonst gewesen und bei ANSI würde er die UTF-8-Zeichen im String schrotten, da er alles zwischen #128 und #255 nach Unicode konvertieren würde, entsprechend der ANSI-CodePage.

Oder du nutzt TEncoding für die Umwandlung.


[info]
ich hoffe der nicht ausprobierte Code funktioniert so wie gedacht

[Bummi]

@himitsu

mit

SetCodePage(R, $0000, False); tut es wie gewünscht ...

[Bernhard Geyer]

Danke mit 0 statt $FFFF hat es geklappt. SetCodePage werde ich mir wohl gut merken müssen
Damit ist mein kleines UTF8/Unicode-Hilfstool auch nach XE2 portiert

[himitsu]

Bei CodePage 0 (CP_ACP) mußt du aufpassen, da dort die StandardCodePage des Systems Prozesses verwendet wird.
Je nach ACP kommt da eventuell ein anderer Unicode-Text raus.

RAW ist quasi eine 1-zu-1-CodePage:
ANSI(x) = Unicode(x)

Du kannst natürlich auch direkt eine bestimmte CodePage beim SetCodePage angeben. (MultiByteToWideChar)

[Bernhard Geyer]

Zitat von himitsu:

Bei CodePage 0 (CP_ACP) mußt du aufpassen, da dort die StandardCodePage des Systems Prozesses verwendet wird.
Je nach ACP kommt da eventuell ein anderer Unicode-Text raus.

RAW ist quasi eine 1-zu-1-CodePage:
ANSI(x) = Unicode(x)

Du kannst natürlich auch direkt eine bestimmte CodePage beim SetCodePage angeben. (MultiByteToWideChar)

Danke. Dann muss ich für die Produkiv-Apps noch etwas rumspielen damit ...