Процедура 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 різних значень.
Пригостити автора кавою