Множества

Поскольку множества используются в Delphi весьма часто, рассмотрим как с ними работать.

Множество строится из значений базового типа. В этом смысле оно похоже на массив. Но в отличие от массива, множество может содержать любое количество различных элементов базового типа – от нуля элементов всех возможных значений. Если множество не содержит ни одного элемента, то говорят, что оно пустое. На множествах определены такие операции как объединения, пересечения, включение и исключение.

Как пример множества рассмотрим свойство Style объекта VCL Font (шрифт). Это свойство представляет собой комбинацию признаков начертания символов шрифта. Каждый из признаков имеет стандартное наименование

fsBold – полужирный

fsItalic – наклонный

fsUnderline – подчеркнутый

fsStrikeout – перечеркнутый

Шрифт можно характеризовать любым сочетанием этих признаков или ни одним из них. Иными словами, множество признаков шрифта может быть пустым, оно может содержать все различные признаки или любую комбинацию различных признаков.

В общем случае объявление множества включает определение базового типа (если базовый тип не является стандартным) и самого множества. Базовым может быть любой дискретный (целочисленный) тип с количеством различных элементов не более 256. Таким образом, стандартными базовыми типами элементов множеств являются byte и char.

Базовый тип признаков шрифта в модуле VCL GRAPHICS.PAS объявлен так

type

TFontStyles= (fsBold,fsItalic,fsUnderline,fsStrikeout);

Данное объявление вводит в рассмотрение четыре различных значения. Тип свойства Style шрифта объявлен так

type TFontStyle = set of TFontStyles;

и буквально означает «множество значений типа TFontStyles». При проектировании формы приложения, в свойство–множество Style шрифта можно включать любые различные признаки из числа перечисленных в TFontStyles, отмечая их в окне инспектора объектов. Может возникнуть необходимость изменения состава признаков шрифта непосредственно в процессе выполнения программы, например, в ответ на нажатие какой-либо кнопки. Допустим, что нам необходимо изменить стиль шрифта формы добавлением признаков «полужирный, наклонный». Следующий фрагмент кода показывает как это можно сделать:

procedure Form1.Button1Click(Sender:TObject);

begin

Font.Styles:= Font.Styles + [fsBold, fsItalic];

end;

В этом коде в свойство-множество Styles включаются элементы fsBold и fsItalic. Список включаемых элементов находится в квадратных скобках, которые в данном случае называются конструктором множества. Исключить признак наклонного шрифта можно так:

Font.Style:= Font.Style – [fsItalic];

В результате выполнения этого оператора из множества Styles будет исключен элемент fsItalic.

Допустим, что нам нужно знать, содержится данный элемент в множестве или нет. Например, мы хотим знать обладает ли текущий шрифт признаком «полужирный»? Ответ дает следующий код:

if fsBold in Styles then DoSomething;

Для «очистки» множества используется конструктор пустого множества, например:

Form1.Font.Styles:= [];

Следующий пример показывает как инициализировать множество с требуемым составом элементов:

Form1.Font.Styles:= [fsBold, fsItalic];

Подобным образом можно модифицировать стиль шрифта любого компонента формы, например,

Memo1.Font.Style:= [];

Memo1.Font.Style:= Memo1.Font.Style + [fsBold, fsItalic];

Дата добавления: 2015-04-29