Сергей Парижский - Delphi. Учимся на примерах

Например:

type

TNumbers = set of 1..10;

TAlphabet = set of 'a';

var

Odds, Evens: TNumbers;

ABC: TAlphabet;

…

Odds:= [1, 3, 5, 7, 9];

Evens:= [2, 4, 6, 8, 10];

ABC:= ['a', 'b', 'с'];

…

Перечислимые типыиспользуют для определения упорядоченных наборов значений в виде списка идентификаторов, соответствующих этим значениям. Для объявления таких типов используют запись следующего вида:

type имя_типа = ( элемент1 , ... , элементN );

По умолчанию, первому элементу соответствует число 0, второму — 1 и т.д. Для того чтобы сопоставить с каким-либо элементом другое значение, следует использовать запись вида элемент = число.

Для извлечения числа, соответствующего некоторому элементу, используется функция Ord.

Пример:

type

TDigits = (Zero, One, Two, Three, Four, Five, Six, Seven Eight, Nine, Ten);

TConstants = (a = 10, b = 3);

var

x: TDigits;

k: TConstants;

MyResult: integer;

…

k:= b; //k присваиваем значении 3

if x = Zero then k:= a //если x=0, то к присваиваем 10

MyResult:= Ord(k); //MyResult = 3 или 10

…

Подтип определяет некоторый диапазон целочисленных или символьных значений. Для его объявления используют запись вида:

type имя_типа = начало..конец;

Переменные этого типа не могут принимать значений вне указанного диапазона. Пример:

type

TDigits = (Zero, One, Two, Three, Four, Five, Six, Seven, Eight, Nine, Ten); //перечислимый тип

T123 = One..Three; //подтип

TABC = 'A'..'C'; //еще один подтип

var

i: T123; //переменная I может принимать значения от 1 до 3

с: TABC; // переменная с может содержать 'A', 'B' или 'C'

Запись – это структурированный набор разнотипных элементов. Отдельные элементы записи называются полями. Для объявления записи используется следующая конструкция:

record

полe1 : тип ;

…

полeN : тип ;

end;

Запись можно объявлять как в разделе type, так и в разделе var:

type TCD = record //запись для хранения данных о музыкальном CD

Group String; //поле, хранящее название исполнителя

Year: Integer; //поле, хранящее год альбома

Title: String; //поле, хранящее название альбома

end;

var MyCD: TCD;

или непосредственно

var MyCD: record

Group: String;

Year: Integer;

Title: String;

end;

Обращение к полям записи реализуется следующим образом:

MyCD.Group:= 'Название группы';

MyCD.Year:= 2005;

MyCD.Title:= 'Название альбома';

Класс— это структура, предназначенная для хранения данных (полей и свойств), а также кода, обрабатывающего эти данные (методы). Поля, методы и свойства называют членами класса.

Класс может быть создан на основе другого класса — в этом случае он называется производным, а базовый класс — родительским. Производный класс наследует все свойства и методы родительского класса, а также может содержать собственные уникальные свойства и методы. Для объявления класса используют конструкцию вида:

type имя_класса = class( имя_родительского_класса )

published

{объявление опубликованных членов класса}

private

{объявление закрытых членов класса}

public

{объявление открытых членов класса}

protected

{объявление защищенных членов класса}

end;

Все члены класса по характеру доступа к ним делятся на четыре категории: закрытые (private), защищенные (protected), открытые (public) и опубликованные (published).

Элементы класса, определенные в разделе public, без каких-либо ограничений открыты для доступа извне программного модуля. Без ограничений доступны также и элементы, определенные в разделе published, однако они отличаются тем, что для них генерируется информация о типах времени выполнения (RTTI — Run Time Type Information). Информация RTTI используется для различных целей: например, для организации отображения значений свойств в инспекторе объектов.

Элементы, определенные в разделе private, недоступны за пределами программного модуля, в котором объявлен класс. Другими словами, закрытые члены класса нельзя вызвать из другого модуля.

Элементы, определенные в разделе protected, доступны в модуле, в котором объявлен класс, а также доступны всем членам классов, производных от данного класса.