Тип Char: особенности

Тип Char занимает 2 байта и хранит Unicode-символ Функции Chr и Ord оставлены для совместимости и работают в кодировке Windows. Следует пользоваться функциями ChrUnicode и OrdUnicode.

var 
  c: char;
  i: integer;

begin
  writeln('sizeof(char) = ',sizeof(char));
  writeln;
  c := 'Ж';
  i := Ord(c);
  writelnFormat('Код символа {0} в кодировке Windows равен {1}',c,i);
  c := Chr(i);
  writelnFormat('Символ с кодом {0} в кодировке Windows - это {1}',i,c);
  writeln;
  i := OrdUnicode(c);
  writelnFormat('Код символа {0} в кодировке Unicode равен {1}',c,i);
  c := ChrUnicode(i);
  writelnFormat('Символ с кодом {0} в кодировке Unicode - это {1}',i,c);
end.

Ссылки

Особенности языка: базовый уровень