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          Лабораторные работы по программированию          Справочник



2018-02-13 10:28:47

efeiuhfeihghiurhrqfjhihfihfrifrfrhfrrfhirhfhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhh




Оставить комментарий:
Ваше Имя:
Email:
Антибот: *  
Ваш комментарий: