Справочник по Delphi

Exclude, процедура

Синтаксис


procedure Exclude(var ASet: Множество;  Value:  Порядковый тип);

Описание

Процедура Exclude удаляет элемент Value из множества, хранящегося в переменной ASet. Тип Value должен соответствовать базовому типу ASet. Exclude не является настоящей процедурой.

Ошибки

Советы и приемы

Заметьте, что нельзя использовать свойство для ссылки на множество, т. к. значение свойства не может выступать в качестве параметра var. Элемент можно удалить из множества с помощью оператора '-', например,

Font.Style := Font.Style - [fsBold];

Пример


// Редактор TFontStyleProperty переключает жирность шрифта
// при выборе свойства TFont.Style в инспекторе
// объектов.
type
  TFontStyleProperty = class(TSetProperty)
public
  procedure Edit; override;
end;
...
procedure TFontStyleProperty.Edit;
var 
  Style: TFontStyles;
  Style := TFontStyles(Byte(GetOrdValue)); // Получение стиля текущего
                                                               // шрифта.
  if fsBold in Style then
    Exclude(Style, fsBold)
  else
    Include(Style, fsBold);
  SetOrdValue(Byte(Style));	// Установка стиля шрифта
                                           // компонента.
end;

Смотрите также

Процедура Include.

Учебник по языку Pascal Лабораторные работы по программированию Справочник

Нет комментариев.

Оставить комментарий: