Ord/ru
From Free Pascal wiki
Jump to navigationJump to search
│
Deutsch (de) │
English (en) │
français (fr) │
русский (ru) │
Функция Ord возвращает индекс (порядковый номер, начиная с 0) элемента перечисления.
Исторически сложилось, что функция Ord использовалась для приведения типа Char к типу Byte для получения ASCII-кода символа строки.
function Ord(X: TOrdinal): LongInt;
function Ord(c: Char): Byte;
Пример использования
Program Example45;
{ Программа, демонстрирующая работу функций Ord(), Pred(), Succ(). }
type
TEnum = (Zero, One, Two, Three, Four);
var
X: LongInt;
Y: TEnum;
begin
X := 125;
Writeln(Ord(X)); { выводит 125 }
X := Pred(X);
Writeln(Ord(X)); { выводит 124 }
Y := One;
Writeln(Ord(y)); { выводит 1 }
Y := Succ(Y);
Writeln(Ord(Y)); { выводит 2}
end.