Тип Char: особенности: различия между версиями
Материал из Вики проекта PascalABC.NET
Перейти к навигацииПерейти к поиску
Mikst (обсуждение | вклад) Нет описания правки |
Mikst (обсуждение | вклад) (→Ссылки) |
||
| (не показаны 3 промежуточные версии этого же участника) | |||
| Строка 1: | Строка 1: | ||
Тип Char занимает 2 байта и хранит Unicode-символ | Тип Char занимает 2 байта и хранит Unicode-символ | ||
Функции Chr и Ord оставлены для совместимости и работают в кодировке Windows. | Функции Chr и Ord оставлены для совместимости и работают в кодировке Windows. | ||
Следует пользоваться функциями ChrUnicode и OrdUnicode | Следует пользоваться функциями ChrUnicode и OrdUnicode. | ||
<source lang="Delphi"> | <source lang="Delphi">var | ||
c: char; | |||
i: integer; | |||
writeln( | 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. | end. | ||
</source>== Ссылки == | </source> | ||
[[Особенности языка: базовый уровень]] | == Ссылки == | ||
*[[Особенности языка: базовый уровень]] | |||
*[http://pascalabc.net/ru/bazovyie-osobennosti-yazyika-i-bibliotek.html Сайт PascalABC.NET: Особенности языка] | |||
Текущая версия от 13:23, 12 января 2010
Тип 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.
