Процедура Include в Delphi включает значение во множество переменных.
System unit
procedure Include (var SetVariable : set of SetValues; OneOfSet : SetValues);
Процедура Include включает значение множества в переменную множества.
Переменная множества одна из тех, что может содержать 0, несколько или все значения множества. Когда вы включаете множество значений в переменную множества, вы добавляете к включенным значениям в переменной.
Include эквивалентен оператору + как показано здесь:
Include(CardHand, JackOfClubs); CardHand := CardHand + [JackOfClubs];
Например, Вы можете вставить игральную карту в руки игроков – где рука основана на наборе всех игральных карт в кону.
Используйте Exclude, чтобы удалить значение из набора переменной. Это может позволить, к примеру, удалить карты из рук игроков.
Процедура Include: Создание переменной, содержащей только положительные числа от 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 является простым
Похожие функции, процедуры и команды
Exclude — исключает значение из переменной набора (множества).
In — используется, чтобы проверить, является ли значение членом множества.
Set — определяет множество до 255 различных значений.
Угостить автора чашечкой кофе