Книга: Delphi. Учимся на примерах
Перечислимые типы
Перечислимые типы
Перечислимые типы используют для определения упорядоченных наборов значений в виде списка идентификаторов, соответствующих этим значениям. Для объявления таких типов используют запись следующего вида:
type имя_типа = (элемент1, ... , элементN);
По умолчанию, первому элементу соответствует число 0, второму — 1 и т.д. Для того чтобы сопоставить с каким-либо элементом другое значение, следует использовать запись вида элемент = число.
Для извлечения числа, соответствующего некоторому элементу, используется функция Ord.
Пример:
type
TDigits = (Zero, One, Two, Three, Four, Five, Six, Seven Eight, Nine, Ten);
TConstants = (a = 10, b = 3);
var
x: TDigits;
k: TConstants;
MyResult: integer;
…
k:= b; //k присваиваем значении 3
if x = Zero then k:= a //если x=0, то к присваиваем 10
MyResult:= Ord(k); //MyResult = 3 или 10
…
Оглавление книги
