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