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;
|