Unicode chr()

[domasz]

Hello,
I have UTF-16 codes for characters. I need to convert them to Unicode string and display in TMemo.

Code: Pascal  [Select][+][-]

1. type
2.  
3.     Tutf16conv=record
4.     case byte of
5.     0:(C:UnicodeChar);
6.     1:(W:word);
7.     end;
8.  
9. var     Body: UnicodeString;
10.     ch: Tutf16conv;
11. Buf: array of Byte;
12.  
13. begin
14.   Body := '';
15.  
16.   for i:=0 to Size-1 do begin
17.     ch.W := Buf[i] + 57344;
18.  
19.     Body := Body + ch.C;
20.   end;
21.  
22. Memo1.Lines.Text :=  Body;
23.  

This just produces rubbish.

[marcov]

$E000/57344 is private use area ( https://en.wikipedia.org/wiki/Private_Use_Areas)

So the font probably has no characters mapped there. So at first glance the code doesn't make sense.

You need to explain what you actually expect and why.

[domasz]

I want to display ATASCII file using this font:
http://members.bitstream.net/marksim/atarimac/fonts.html

Code: Pascal  [Select][+][-]

1. The original Atari characters are located in the Unicode "private use area", starting at location $E000.
2.  

[domasz]

It actually does work but font needs to be set differently.

"good.png" shows how I have to choose font. "bad.png" invokes a popup that doesn't have all the fonts and charset cannot be changed to unicode.

[MarkMLl]

That obviously depends on the OS being used, and on the extent to which the OS (including the frontend GUI etc.) is capable of handling whatever font file the website is making available.

Quite frankly, I'd start with something like FontForge and work from there.

MarkMLl