Информатика в техническом университете / Информатика в техническом университете. Объектно ориентированное программирование

4. Создание приложений Windows

OutPutLabel'> Visible=false; II скрыть Метку редактора вывода

}

//обработчик события «нажатие клавипш Enter при вводе значения» void _ Jdstcall TMainForm::InputEditKeyPress(TObject ^Sender,

char &Key)

}

}

II обработчик события «нажата кнопка Следующее»

void _ Jastcall TMainForm: :NextButtonClick(TObject "^Sender)

{FormActivate(NextButton); II вернуться к исходным настройкам

//обработчик события «нажата кнопка Вьпсод»

Файл проекта Example l.cpp C++Builder также создает автоматически:

#include <vcl.h> ^pragma hdrstop

USERESC'Example1.res "); II включить файл ресурсов

190

5. ОБЪЕКТНАЯ МОДЕЛЪ DELPHI PASCAL

Объектная модель Delphi Pascal по сравнению с моделью, использованной Borland Pascal 7.О., является более полной. Помимо уже описанных в главе 2 средств ООП она включает:

-ограничение доступа к полям и методам за счет определения собственного интерфейса к каждому полю класса (пять типов секций при объявлении класса, свойства);

-более развитые механизмы реализации полиморфных методов (абстрактные, динамические методы);

-средства работы с метаклассами (переменные метаклассов, методы классов, механизм RTTI);

-возможность делегирования методов (указатели на методы) и т. д.

5.1. Определение класса

Все классы, используемые в Delphi (уже определенные в библиотеках классов и создаваемые разработчиком для конкретного приложения), наследуются от класса TObject.

Формат описания нового класса вьштядит следующим образом: ТУре <имя объявляемого класса> = с1а88(<имя родителя>)

private <скрьггые элементы класса> protected <защище1шые элементы класса> public <общедоступные элементы класса> published <опубликованные элементы класса>

automated <элементы, реализующие ОЬЕ-механизм> end;

Имя родителя указывать не обязательно, по умолчанию считается, что, если имя родителя не указано, то класс непосредственно наследуется от TObject.

Внутри описания класса выделяется до пяти секций.

Секщ1Я private содержит внутренние элементы, обращение к которым возможны только в пределах модуля (а не класса, как в C++), содержащего объявление класса.

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

192

5.7. Определение класса

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

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

Секция automated содержит элементы, доступ к которым также вьшолняется аналогично public. Но для элементов, описанных в этой секции, генерируется дополнительная информация, используемая OLE. Секцию имеет смысл объявлять для потомков класса TAutoObject.

Потомки класса могут менять область доступности всех элементов родительского класса, кроме элементов, объявленных в секции private, так как последние им не доступны.

Основной особенностью объектов Delplii является то, что они всегда являются динамическими, т.е. размещаемыми в динамической области памяти. Соответственно, переменная типа класса по смыслу представляет собой указатель на объект, однако, по правилам Delphi, при работе с этой переменной операция разыменования «^» не используется. Вызовы же конструктора и деструктора в такой модели становятся обязательными, так как конструктор вьшолняет размещение объекта в памяти, а деструктор - вьпрузку из нее.

Рассмотрим пример, демонстрирующий различие старой и новой

Чтобы подчеркнуть изменение функций конструктора и деструктора в объектной модели Delphi, для них предлагается использовать другие имена: Create (создать) - для конструктора и Destroy (уничтожить) - для деструктора. Если конструктор или деструктор для создаваемого класса не указывается, то

193

5. Объектная модель Delphi Pascal

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

Конструктор Create класса TObject вызывает специальный метод InstanceSize для определения размера памяти, необходимой для размещения объекта, запрашивает область памяти требуемого размера, используя процедуру Newlnstance, и инициализирует поля нулевыми значениями, используя процедуру Initlnstanse. Адрес области памяти конструктор-функция возвращает в качестве результата.

При создании собственного конструктора для разрабатываемого класса необходимо перед программированием специфических операций, предусматриваемых для конструирования объектов данного класса, обращаться к наследуемому (inherited) конструктору:

Constructor TNum.Create; begin

inherited Create; {наследуемый конструктор} n: =an;

end;

Правильно построенная цепочка вьшолнения наследуемых конструкторов в иерархии должна восходить к конструктору TObject, который и обеспечит размещение объектов данного класса в памяти.

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

Деструктор Destroy класса TObject вызывает метод CleanUpInstance для корректного завершения работы с длинными строками и другими сложными структурами данных. Затем он обращается к методу InstanceSize для определения размера объекта и освобождает память. В классе TObject деструктор объявлен виртуальным, так как с одной стороны в том же классе существует метод Free (см. ниже), который вызывает деструктор, с другой стороны сам деструктор в производных классах может быть переопределен. Следовательно, при переопределении деструктора в классе его необходимо объявлять как метод, перекрывающий виртуальный (раздел 5.2):

Destructor Destroy; override;

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

194

5.7. Определение класса

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

Destructor TNum.Destroy; begin

. . . {вьшолнение спещ1фических операщш над объектом} inherited Destroys {вызов родителъского деструктора}

end;

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

Так, например, операция присваивания объектов соответствует операщш копирования адреса, а не самого объекта. В табл. 5.1 поясняется, что происходит при вьшолнении некоторых операщш.

Таблица5 . 1 . Особенности работы с объектами в Delphi

195

5. Объектная модель Delphi Pascal

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

Чтобы уменьшить количество ошибок адресации, можно использовать вместо метода Destroy метод Free. Этот метод прежде, чем освобождать память, проверяет, бьш ли создан объект в памяти (сравнивает адрес, записанный в переменной, со значением nil) и, если объект не создавался, то память не освобождается. Однако во многих случаях, например, для ситуации, представленной в табл. 5.1, замена Destroy на Free не поможет избежать ошибки адресации: в данном варианте объект бьш создан, и адрес в переменной отличен от nil.

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

Пример 5.1. Определение класса (графический редактор «Окруж­ ности» - вариант 1). Пусть требуется разработать приложение, позволяющее рисовать на специальном поле окна приложения окружности. Местоположе­ ние центра окружности должно определяться щелчком левой клавиши мьппи. Радиус окружности и цвет контура должны настраиваться.

Разрабатьшаемое приложение легко декомпозируется на два объекта: окно приложения и изображаемая в нем окружность (или круг, так как в процессе рисования внутреннее поле окружности заполняется точками цвета фона). Результат декомпозиции приведен на рис. 5.1.

Рис. 5.1. Объектная декомпозиция приложения «Окружности»

196

5.7. Определение класса

Окно ДОЛЖНО содержать интерфейсные элементы, позволяющие выполнять настройку параметров круга и саму процедуру рисования. Оно проектируется на базе класса TForm с использованием стандартных визуальных компонент. Предлагаемый внешний вид окна с указанием типов используемых визуальных компонент представлен на рис. 5.2.

Компоненты, использованные для формирования внешнего вида окна приложе1шя, настраиваются с помощью Инспектора Объектов следующим образом:

•^TUpDown

ивет

^TButton

}^1!^шК1Л

// / — r -

TMainForm TBevel TImage TButton

Рис. 5.2. Вид шавного окна приложения «Окружности»

197

5. Объектная модель Delphi Pascal

Кроме указанных компонент приложение будет использовать стандартный диалог выбора цвета. При визуальном проектировании формы этот диалог в виде условного изображения добавляется в форму и в нужный момент программно инициируется. Имя этого компонента также настраивается через Инспектор Объектов (Name:=ColorDialog).

Интерфейс может находиться в двух состояниях: ожидание действий пользователя, связанных с рисованием, и ожидание выбора цвета (в диалоге выбора цвета). Граф состояний интерфейса, содержащий привязку к событиям, доступным при разработке приложения в Delphi, приведен на рис. 5.3.

Обработчик события С1 (MainFormActivate) должен устанавливать цвет фона и исходный цвет рисования.

Обработчик события С2 (ImageMouseDown) определив, что нажата именно левая клавиша, должен рисовать круг с заданным радиусом текущим цветом контура и центром в точке местонахождения курсора мьппи.

Обработчик события СЗ (CoIorButtonClick) должен активизировать диалог выбора цвета. После завершения этого диалога он должен проверять, существует ли объект класса Окружность, и если такой объект существует, то перерисовьгоать его установленным цветом.

Собьггие С4 будет обрабатываться диалогом выбора цвета. Обработчик события С5 (UpDownClick) должен проверять, существует

ли объект класса Окружность, и если такой объект существует, то стирать старое изображение и вьшодитъ новое с изменением размера.

Обработчик события С6 (ExitButtonClick) должен завершать приложение.

Диаграмма класса TMainForm, наследуемого от стандартного класса TForm и включающего объектные поля стандартных классов DelpM, приведена на рис. 5.4, а.

Изменение размера

С6 - нажатие кнопки Выход.

Рисование

Рис. 5.3. Граф состояний интерфейса

198

Рис. 5,4. Диаграммы разрабатываемых классов

Класс TMyCircle (рис. 5.4, б) в соответствии с правилами Delphi наследуется от TObject. Он добавляет поля для хранения координат центра окружности (х,у), ее радиуса г, цвета Color и имени компонента Image, на холсте которого нарисована окружность. Набор методов в основном определяется перечнем сообщений, на которые должен реагировать объект данного класса (см. рис. 5.2). Дополнительно переопределим метод Create, чтобы использовать его для инициализации полей объекта при создании. Кроме этого, целесообразно определить метод Clear для стирания нарисованной окружности при изменении ее размера или цвета.

Определим тип доступа для всех компонентов класса: все поля и метод Clear, к которому не требуется доступ извне, объявим в секции private (внутренние), а все остальные компоненты - в секции public.

Объявление класса TMyCircle вьшолним в отдельном модуле Circul:

Unit Circul;

Interface

Uses extctrIs,Graphics; Type TMyCircle=class

private

X, y, r: Word; {координаты центра и радиус окружности}

Color: TColor; {цвет}

Image: Timage; {поле для рисования} Procedure Clear; {стирание окружности}

public

Constructor Create(almage:Timage; ax,ay,ar:Word; aColor:TColor); {конструктор}

199