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