Справочник функций и процедур Delphi: Exclude

  Навигация по первой букве:

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

  Навигация по категории:

Compiler directives, Directives, Keywords / Types, Variables, Constants / Functions, Procedures

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

Delphi Sources

Описание
Процедура 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 четно
 


Последние добавленные на сайт исходники

TDictionary Custom Sort

Fast Watermark Sources

3D Designer

Sik Screen Capture

Patch Maker

Айболит (remote control)

 

ListBox Drag & Drop

Доска для игры Реверси

Графические эффекты

Рисование по маске

Перетаскивание изображений

Canvas Drawing

 

Copyright © 2004-2024 "Delphi Sources" by BrokenByte Software (источник – "DelphiBasics")

Группа ВКонтакте