19 lines
534 B
ObjectPascal
19 lines
534 B
ObjectPascal
// Ñòàíäàðòíûå ôóíêöèè Ord, Chr, OrdUnicode, ChrUnicode
|
|
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. |