Классы в программных модулях

⇐ ПредыдущаяСтр 4 из 5Следующая ⇒

Классы очень удобно собирать в модули. При этом их описание помещается в секцию interface, а код методов — в секцию implementation. Создавая модули классов, нужно придерживаться следующих правил:

1. все классы, предназначенные для использования за пределами модуля, следует определять в секции interface;

2. описание классов, предназначенных для употребления внутри модуля, следует располагать в секции implementation;

3. если модуль B использует модуль A, то в модуле B можно определять классы, порожденные от классов модуля A.

Соберем рассмотренные ранее классы TTextReader, TDelimitedReader и TFixedReader в отдельный модуль ReadersUnit:

unit ReadersUnit; interface type TTextReader = class private // Поля FFile: TextFile; FItems: array of string; FActive: Boolean; // Методы procedure PutItem(Index: Integer; const Item: string); // Методы чтения и записи свойств procedure SetActive(const AActive: Boolean); function GetItemCount: Integer; function GetEndOfFile: Boolean; protected // Методы чтения и записи свойств function GetItem(Index: Integer): string; // Абстрактные методы function ParseLine(const Line: string): Integer; virtual; abstract; public // Конструкторы и деструкторы constructor Create(const FileName: string); destructor Destroy; override; // Методы function NextLine: Boolean; // Свойства 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; end; TDelimitedReader = class(TTextReader) private // Поля FDelimiter: Char; protected // Методы function ParseLine(const Line: string): Integer; override; public // Конструкторы и деструкторы constructor Create(const FileName: string; const ADelimiter: Char = '; '); // Свойства property Delimiter: Char read FDelimiter; end; TFixedReader = class(TTextReader) private // Поля FItemWidths: array of Integer; protected // Методы function ParseLine(const Line: string): Integer; override; public // Конструкторы и деструкторы constructor Create(const FileName: string; const AItemWidths: array of Integer); end; TMyReader = class(TDelimitedReader) property FirstName: string index 0 read GetItem; property LastName: string index 1 read GetItem; property Phone: string index 2 read GetItem; end; implementation { TTextReader } constructor TTextReader.Create(const FileName: string); begin inherited Create; AssignFile(FFile, FileName); FActive: = False; end; destructor TTextReader.Destroy; begin Active: = False; inherited; end; function TTextReader.GetEndOfFile: Boolean; begin Result: = Eof(FFile); end; function TTextReader.GetItem(Index: Integer): string; begin Result: = FItems[Index]; end; function TTextReader.GetItemCount: Integer; begin Result: = Length(FItems); end; function TTextReader.NextLine: Boolean; var S: string; N: Integer; begin Result: = not EndOfFile; if Result then // Если не достигнут конец файла begin Readln(FFile, S); // Чтение очередной строки из файла N: = ParseLine(S); // Разбор считанной строки if N < > ItemCount then SetLength(FItems, N); // Отсечение массива (если необходимо) end; end; procedure TTextReader.PutItem(Index: Integer; const Item: string); begin if Index > High(FItems) then // Если индекс выходит за границы массива, SetLength(FItems, Index + 1); // то увеличение размера массива FItems[Index]: = Item; // Установка соответствующего элемента end; procedure TTextReader.SetActive(const AActive: Boolean); begin if Active < > AActive then // Если состояние изменяется begin if AActive then Reset(FFile) // Открытие файла else CloseFile(FFile); // Закрытие файла FActive: = AActive; // Сохранение состояния в поле end; end; { TDelimitedReader } constructor TDelimitedReader.Create(const FileName: string; const ADelimiter: Char = '; '); begin inherited Create(FileName); FDelimiter: = ADelimiter; end; function TDelimitedReader.ParseLine(const Line: string): Integer; var S: string; P: Integer; begin S: = Line; Result: = 0; repeat P: = Pos(Delimiter, S); // Поиск разделителя if P = 0 then // Если разделитель не найден, то считается, что P: = Length(S) + 1; // разделитель находится за последним символом PutItem(Result, Copy(S, 1, P - 1)); // Установка элемента Delete(S, 1, P); // Удаление элемента из строки Result: = Result + 1; // Переход к следующему элементу until S = ''; // Пока в строке есть символы end; { TFixedReader } constructor TFixedReader.Create(const FileName: string; const AItemWidths: array of Integer); var I: Integer; begin inherited Create(FileName); // Копирование AItemWidths в FItemWidths SetLength(FItemWidths, Length(AItemWidths)); for I: = 0 to High(AItemWidths) do FItemWidths[I]: = AItemWidths[I]; end; function TFixedReader.ParseLine(const Line: string): Integer; var I, P: Integer; begin P: = 1; for I: = 0 to High(FItemWidths) do begin PutItem(I, Copy(Line, P, FItemWidths[I])); // Установка элемента P: = P + FItemWidths[I]; // Переход к следующему элементу end; Result: = Length(FItemWidths); // Количество элементов постоянно end; end.

Как можно заметить, в описании классов присутствуют новые ключевые слова private, protected и public. С их помощью регулируется видимость частей класса для других модулей и основной программы. Назначение каждого ключевого слова поясняется ниже.

Разграничение доступа к атрибутам объектов

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

Private. Все, что объявлено в секции private недоступно за пределами модуля. Секция private позволяет скрыть те поля и методы, которые относятся к так называемым особенностям реализации. Например, в этой секции класса TTextReader объявлены поля FFile, FActive и FItems, а также методы PutItem, SetActive, GetItemCount и GetEndOfFile.

Public. Поля, методы и свойства, объявленные в секции public не имеют никаких ограничений на использование, т.е. всегда видны за пределами модуля. Все, что помещается в секцию public, служит для манипуляций с объектами и составляет программный интерфейс класса. Например, в классе TTextReader в эту секцию помещены конструктор Create, метод NextLine, свойства Active, Items, ItemCount.

Protected. Поля, методы и свойства, объявленные в секции protected, видны за пределами модуля только потомкам данного класса; остальным частям программы они не видны. Так же как и private, директива protected позволяет скрыть особенности реализации класса, но в отличие от нее разрешает другим программистам порождать новые классы и обращаться к полям, методам и свойствам, которые составляют так называемый интерфейс разработчика. В эту секцию обычно помещаются виртуальные методы. Примером такого метода является ParseLine.

Published. Устанавливает правила видимости те же, что и директива public. Особенность состоит в том, что для элементов, помещенных в секцию published, компилятор генерирует информацию о типах этих элементов. Эта информация доступна во время выполнения программы, что позволяет превращать объекты в компоненты визуальной среды разработки. Секцию published разрешено использовать только тогда, когда для самого класса или его предка включена директива компилятора $TYPEINFO.

Перечисленные секции могут чередоваться в объявлении класса в произвольном порядке, однако в пределах секции сначала следует описание полей, а потом методов и свойств. Если в определении класса нет ключевых слов private, protected, public и published, то для обычных классов всем полям, методам и свойствам приписывается атрибут видимости public, а для тех классов, которые порождены от классов библиотеки VCL, — атрибут видимости published.

Внутри модуля никакие ограничения на доступ к атрибутам классов, реализованных в этом же модуле, не действуют. Кстати, это отличается от соглашений, принятых в некоторых других языках программирования, в частности в языке C++.

⇐ Предыдущая 1 2 345 Следующая ⇒