Как получить полноценный символ корня под Windows?

[eugrita]

Если в консольном приложении вывести на печать символ CHR(251)
то получим более или менее приличное изображение радикала, правда без горизонтальной палки
Если же учитывая разницу между ANSI и DOS (или OEM) кодировкой сделать
преобразование
c_sqr: Char;
............
function TfMain.FromWinToDos(cc: Char): Char;
var ss:String;
begin
  ss:=cc;
  OEmToChar(pChar(ss),pChar(ss));
  RESULT:=ss[1];
end;
..........................
c_sqr:= FromWinToDos(CHR(251));


то получим правда нечто похожее на радикал но в  усеченном виде- скорее как буква v
Можно ли в принципе получить полноценное изображение радикала в Delphiпод
Windows?

[RXL]

eugrita, подбери подходящий фонт и его размер, чтобы было так, как ты хочешь.

[Антон (LogRus)]

в юникоде это символ 221A

[eugrita]

Да спасибо.
А вот еще связанный с Юникодом вопрос
а как распечатать кодовую таблицу Unicode из Delphi?
Фишка типа
for i:=250 to 300
 begin
 c:=CHR(i); writeln('i=',i,' ',c);
 end;
Не проходит, т.к. даже если  с:WideChar
то все равно СHR умеет работать только с Char а не с WideChar.
Хотелось бы посмотреть из Delphi Unicode-символы на предмет выбора полезных, которых нет в
традиционных ANSU

[x77]

используйте не Chr, а функции для преобразования из StrUtils, работающее с юникодом и мультибайтовыми кодировками.

[eugrita]

А вот еще какая-то нестыковка
как достать любой символ Unicode WideChar(i) ?
вроде бы обозначение символьной константы #222A дано в 16-ичном виде
 это -код символа интеграл #222A  сам проверял : если
L: TNTLabel;
    L.Caption:=WideChar($222B);
то интеграл действительно выводится если в L.Font установлен в Arial Unicode MS
------------------------------------------------------------------------------------------
считая 222B 16-ичной записью преобразуем в 10-ичное i

222B  = 11+2*16+2*16*16+2*16*16*16=11+32+512+8192=8747
аналогично знак радикала #221A
221A =10+1*16+2*16*16+2*16*16*16=10+16+512+8192=8730

Однако при вызове
var c: WideСhar;
 c:=WideChar(8147) ; //или c:=WideChar(8130)
с последующей печатью writeln(c);
выводятся вовсе не эти символы а ?
Почему?

[x77]

очевидно, потому, что вывод через writeln идёт в консоль, у которой свой, не юникодный, шрифт. для вывода в консоль надо конвертить в OEM.