1 type Name = Set of Ordinal type;
2 type Name = Set of Value range;
Ключевое слово Set объявляет тип множества до 255 дискретных значений. Не путайте с перечислениями - они могут принимать только одно значение. Переменная множества всегда держит все значения набора - некоторые установлены, некоторые нет.
Перечислимый тип может быть:
Символы типа "A" и "5"
Целые числа в диапазоне от 0 до 255
Перечисления названий как Diamonds, Clubs
Помните, что Set является переменной. Также, в начале все возможные значения не установлены.
Когда вы инициализируете множество, вы можете установить все или некоторые из его значений.
Потом вы можете проверить переменную, чтобы узнать, находится ли ее значение в наборе. Вы можете захотеть сделать это, например, при анализе кода, чтобы узнать, является ли следующий символ символом строчных букв.
|
var
Alphabet : Set of 'A'..'z'; // Набор букв
begin
Alphabet := ['A'..'z']; // Заполнение всех значений
// Проверяем значения против набора алфавита
if 'Z' in Alphabet
then ShowMessage('Z в Alphabet')
else ShowMessage('Z не в Alphabet');
if 'd' in Alphabet
then ShowMessage('d в Alphabet')
else ShowMessage('d не в Alphabet');
if '1' in Alphabet
then ShowMessage('1 в Alphabet')
else ShowMessage('1 не в Alphabet');
end;
Z в Alphabet
d в Alphabet
1 не в Alphabet
var
SmallNums : Set of 0..55; // Набор первых 56 членов набора
LargeNums : Set of 200..255; // Набор последних 56 членов набора
FullNums : Set of 0..255; // Набор всех 256 членов набора
begin
// Мы имеем диапазон значений от 0 до 55, которые мы можем установить
// Обратите внимание на большую гибкость, которую мы имеем в установке значений
// Мы можем определить множественные диапазоны, и индивидуальных членов
SmallNums := [3..12,23,30..32]; // Заполнение значениями только некоторых из членов
// Показ памяти, занятой этими наборами
// Каждый член набора занимает один бит одного байта из 32 возможных байтов.
ShowMessage('SmallNums занимают : '+IntToStr(SizeOf(SmallNums))+' байт');
ShowMessage('LargeNums занимают : '+IntToStr(SizeOf(LargeNums))+' байт');
ShowMessage('AllNums занимают : '+IntToStr(SizeOf(FullNums))+' байт');
// Проверяем значения против маленького набора чисел
if 12 in SmallNums
then ShowMessage('12 в SmallNums')
else ShowMessage('12 не в SmallNums');
if 13 in SmallNums
then ShowMessage('13 в SmallNums')
else ShowMessage('13 не в SmallNums');
if 30 in SmallNums
then ShowMessage('30 в SmallNums')
else ShowMessage('30 не в SmallNums');
end;
SmallNums занимают : 7 bytes
LargeNums занимают : 7 bytes
AllNums занимают : 32 bytes
12 в SmallNums
13 не в SmallNums
30 в SmallNums
|
Каждый тип перечисления, или член набора, занимают один бит (32-байтовой) маски на 256 битов.
Любой из этих 32 байтов, который не содержит ни один из битов определения перечисления, опущен из набора, чтобы экономить память. См. примеры.
|