Unicode: UTF-16 surrogate pairs?

[Deep-Sea]

*push*

Es muss doch irgend jemanden geben, der wenigstens ja oder nein sagen kann ... das würde mir ya schon reichen :stupid:

[Bernhard Geyer]

Es geht (D2009 und Windows). Jedoch habe ich keine Font mit entsprechenden Zeichen so das ich nur ein 𝄞 angezeigt bekomme.
Mein Testcode:

Delphi-Quellcode:

var
  str: String;
  OrderText: String;
  i: Integer;
begin
  str := #$D834 + #$DD1E;

  OrderText := '';
  for i := 1 to Length(str) do
    OrderText := OrderText + ' #$' + IntToHex(Ord(str[i]), 4);

  Canvas.TextOut(100, 100, str);
  ShowMessage(Format('%s (%d), %s', [str, Length(str), OrderText]));
  Windows.MessageBox(self.Handle, PChar(str), 'Test', MB_OK);
end;

[Deep-Sea]

Zitat:

Zitat von Bernhard Geyer

Es geht (D2009 und Windows). Jedoch habe ich keine Font mit entsprechenden Zeichen so das ich nur ein 𝄞 angezeigt bekomme.

Ein 𝄞? du meinst ein leeres Kästchen - denn ich sehe da einen Notenschlüssel (da ich einen passenden Font habe) :-D

Ich habe es eben nochmal getestet: Unter XP geht es nicht (zwei Platzhalter anstatt ein Notenschlüssel), aber unter Vista gehts! Juhu :mrgreen:
(Aber vlt. muss man/ich das bei XP nur irgendwie aktivieren oder so?)

[Ydobon]

Eigentlich sollte es XP von sich aus schaffen und hat es zumindest bei mir bisher auch immer, selbst bei absichtlicher Deaktivierung. Aber überprüf das einfach mal: Surrogates and Supplementary Characters

[Deep-Sea]

Zitat:

Zitat von Ydobon

Eigentlich sollte es XP von sich aus schaffen und hat es zumindest bei mir bisher auch immer, selbst bei absichtlicher Deaktivierung. Aber überprüf das einfach mal: Surrogates and Supplementary Characters

Ya, dass hatte ich vor dem Erstellen des Threads auch schon gelesen, aber nicht so ganz beachtet :roll: Nun habe ich's trotzdem nochmal getestet ... und siehe da, nach einem Neustart geht es auch bei meinem XP. Ich bin manchmal auch ein Idiot :-D

Danke an euch alle :thumb: