Vielleicht mit Ländercoden oder was Ähnlichem.
Code: Alles auswählen
const
Hello = 'Hello World !, ich habe "äüö ÄÜÖ ÿŸäüö ggg" !äöü';
var
Char2BArr: TXChar2BArray;
ws: WideString;
begin
ws := UTF8ToUTF16(Hello);
WriteLn(ws); // geht richtig
for i := 1 to Length(ws) do begin
ws[i] := widechar(Swap(word(ws[i]))); // Bytes in WideChar vertauschen
end;
XDrawString16(dis, win, gc, Left, Top + ascent - descent, @ws[1], Length(ws));