Delphi-Help

Описание

procedure Include ( var SetVariable : set of SetValues; OneOfSet : SetValues ) ;

Процедура Include включает значение множества в переменную множества.
Переменная множества одна из тех, что может содержать 0, несколько или все значения множества. Когда вы включаете множество значений в переменную множества, вы добавляете к включенным значениям в переменной.
Include эквивалентен оператору + как показано здесь:
Include(CardHand, JackOfClubs); CardHand := CardHand + [JackOfClubs];
Например, Вы можете вставить игральную карту в руки игроков - где рука основана на наборе всех игральных карт в кону.
Используйте Exclude, чтобы удалить значение из набора переменной. Это может позволить, к примеру, удалить карты из рук игроков.

Пример кода

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 является простым

Примечание