делает использование Ваших классов другими программистами более простым, поскольку им легче запомнить одно понятие Active, чем, например,

три метода: Open, Close и IsOpen.

Значение свойства может не храниться, а вычисляться при каждом обращении к свойству. Примером является свойство ItemCount, значение которого вычисляется как Length(FItems).

3.6.3. Свойства-массивы

Кроме обычных свойств в объектах существуют свойства-массивы (array properties). Свойство-массив — это индексированное множество значений. Например, в классе TDelimitedReader множество элементов, выделенных из считанной строки, удобно представить в виде свойства-массива:

type

TDelimitedReader = class

...

FItems: array of string;

...

function GetItem(Index: Integer): string;

...

property Items[Index: Integer]: string read GetItem; end;

function TDelimitedReader.GetItem(Index: Integer): string; begin

Result := FItems[Index]; end;

Элементы массива Items можно только читать, поскольку класс TDelimitedReader предназначен только для чтения данных из файла.

В описании свойства-массива разрешено использовать только методы, но не поля. В этом состоит отличие свойства-массива от обычного свойства.

Основная выгода от применения свойства-массива — возможность выполнения итераций с помощью цикла for, например:

var

Reader: TDelimitedReader; I: Integer;

...

for I := 0 to Reader.ItemCount - 1 do Writeln(Reader.Items[I]);

...

168

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

Свойства-массивы имеют два важных отличия от обычных массивов:

их индексы не ограничиваются диапазоном и могут иметь любой тип данных, а не только Integer. Например, можно создать свойство-массив, в котором индексами будут строки. Обращение к такому свойству могло бы выглядеть примерно так:

Reader.Items['FirstName'] := 'Alexander';

операции над свойством-массивом в целом запрещены; разрешены операции только с его элементами.

3.6.4. Свойство-массив как основное свойство объекта

Свойство-массив можно сделать основным свойством объектов данного класса. Для этого в описание свойства добавляется слово default:

type

TDelimitedReader = class

...

property Items[Index: Integer]: string read GetItem; default;

...

end;

Такое объявление свойства Items позволяет рассматривать сам объект класса TDelimitedReader как массив и опускать имя свойства-массива при обращении к нему из программы, например:

var

R: TDelimitedReader; I: Integer;

...

for I := 0 to R.ItemCount - 1 do Writeln(R[I]);

...

Следует помнить, что только свойства-массивы могут быть основными свойствами объектов; для обычных свойств это недопустимо.

3.6.5. Методы, обслуживающие несколько свойств

169

Один и тот же метод может использоваться для получения (установки) значений нескольких свойств одного типа. В этом случае каждому свойству назначается целочисленный индекс, который передается в метод чтения (записи) первым параметром.

В следующем примере уже известный Вам метод GetItem обслуживает три свойства: FirstName, LastName и Phone:

type

TDelimitedReader = class

...

property FirstName: string index 0 read GetItem; property LastName: string index 1 read GetItem; property Phone: string index 2 read GetItem;

end;

Обращения к свойствам FirstName, LastName и Phone заменяются компилятором на вызовы одного и того же метода GetItem, но с разными значениями параметра Index:

var

Reader: TDelimitedReader;

...

Writeln(Reader.FirstName); // Эквивалентно: Writeln(Reader.GetItem(0));

Writeln(Reader.LastName); // Эквивалентно: Writeln(Reader.GetItem(1));

Writeln(Reader.Phone); // Эквивалентно: Writeln(Reader.GetItem(2));

...

Обратите внимание, что метод GetItem обслуживает как свойство-массив

Items, так и свойства FirstName, LastName и Phone. Удобно, не правда ли!

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

type

TDelimitedReader = class // Поля

FFile: TextFile;

FItems: array of string; FActive: Boolean; FDelimiter: Char;

// Методы чтения и записи свойств

procedure SetActive(const AActive: Boolean);

170

function GetItemCount: Integer; function GetEndOfFile: Boolean;

function GetItem(Index: Integer): string; // Методы

procedure PutItem(Index: Integer; const Item: string); function ParseLine(const Line: string): Integer; function NextLine: Boolean;

// Конструкторы и деструкторы

constructor Create(const FileName: string; const ADelimiter: Char = ';');

destructor Destroy; override; // Свойства

property Active: Boolean read FActive write SetActive; property Items[Index: Integer]: string read GetItem; default; property ItemCount: Integer read GetItemCount;

property EndOfFile: Boolean read GetEndOfFile; property Delimiter: Char read FDelimiter;

end;

{ TDelimitedReader }

constructor TDelimitedReader.Create(const FileName: string; const ADelimiter: Char = ';');

begin

AssignFile(FFile, FileName); FActive := False;

FDelimiter := ADelimiter; end;

destructor TDelimitedReader.Destroy; begin

Active := False; end;

function TDelimitedReader.GetEndOfFile: Boolean; begin

Result := Eof(FFile); end;

function TDelimitedReader.GetItem(Index: Integer): string; begin

Result := FItems[Index]; end;

function TDelimitedReader.GetItemCount: Integer; begin

Result := Length(FItems); end;

function TDelimitedReader.NextLine: Boolean; var

S: string; N: Integer;

begin

171