Delphi справочник - Форум программистов - Навигация  
 A  B  C  D  E  F  G  H  I  J  K  L  M  N  O  P  Q  R  S  T  U  V  W  X  Y  Z      По первой букве  
System     SysUtils     StrUtils     DateUtils     FileCtrl     ConvUtils     StdConvs     Math     Classes     Dialogs     Types     Variants    ПО Unit   Compiler directives     Directives     Keywords     Types     Variables     Constants     Functions     Procedures    По категории  
Подписаться на рассылку:
Клуб программистов


Основы Delphi
Exclude
Процедура
Исключает значение из переменной набора (множества) System unit
  procedure Exclude ( var SetVariable : set of SetValues; OneOfSet : SetValues ) ;
Описание
Процедура Exclude исключает значение набора из переменной набора.

Переменная набора - та, которая может содержать 0, в некоторых, или во всех значения набора. Когда Вы Исключаете значение набора из переменной набора, Вы удаляете её значение из включенных в переменную значений.

Exclude эквивалентно оператору показанному здесь:

Exclude(CardHand, JackOfClubs); CardHand := CardHand - [JackOfClubs];

Например, Вы можете удалить игральную карту из рук игроков - где рука основана на наборе всех игральных карт на столе.

Используйте Include, чтобы добавить значение в переменную набора. Это, например, позволило бы карте быть добавленной в руку игрока.
Похожие команды
In  Используется, чтобы проверить, является ли значение членом множества

Include  Включает значение во множество переменных

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;

0 четно
2 четно
4 четно
6 четно
8 четно
10 четно
 



© Блог программистов   |  Создание и продвижение сайтов - "Веб сателлит"  |  Ссылки  |     |  Английская версия