procedure Include ( var SetVariable : set of SetValues; OneOfSet : SetValues ) ;
Описание
Процедура Include включает значение множества в переменную множества.
Переменная множества одна из тех, что может содержать 0, несколько или все значения множества. Когда вы включаете множество значений в переменную множества, вы добавляете к включенным значениям в переменной.
Include эквивалентен оператору + как показано здесь:
Например, Вы можете вставить игральную карту в руки игроков - где рука основана на наборе всех игральных карт в кону.
Используйте Exclude, чтобы удалить значение из набора переменной. Это может позволить, к примеру, удалить карты из рук игроков.
Похожие команды
Exclude Исключает значение из переменной набора (множества)
In Используется, чтобы проверить, является ли значение членом множества
Set Определяет множество до 255 различных значений
Пример кода : Создание переменной, содержащей только положительные числа от 0 до 10
var
evenNumbers : Set of 0..10;
i : Integer;
begin // Удостоверьтесь, что evenNumbers содержит только четные числа
evenNumbers := [];
for i := 0 to 10 do
if (i mod 2) = 0
then Include(evenNumbers, i); // Теперь показываем содержимое множества
for i := 0 to 10 do
if i in evenNumbers
then ShowMessage(IntToStr(i)+' является простым');
end;
0 является простым
2 является простым
4 является простым
6 является простым
8 является простым
10 является простым
