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

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

В объявлении класса-потомка указывается класс родителя. Например, класс TEmployee (сотрудник) может быть порожден от рассмотренного выше класса TPerson путем добавления поля FDepartment (отдел).

 Показать / Скрыть текст

Заключенное в скобки имя класса TPerson показывает, что класс TEmployee является производным от класса TPerson. В свою очередь, класс TPerson является базовым для класса TEmployee, Класс TEmployee должен иметь свой собственный конструктор, обеспечивающий инициализацию класса-родителя и своих полей. Вот пример реализации конструктора класса Temployee:

 Показать / Скрыть текст

В приведенном примере директивой inherited вызывается конструктор родительского класса. После этого присваивается значение полю класса-потомка.

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

 Показать / Скрыть текст

Директивы protected и private

Помимо объявления элементов класса (полей, методов, свойств) описание класса, как правило, содержит директивы protected (защищенный) и

private (закрытый), которые устанавливают степень видимости элементов класса в программе.

Элементы класса, объяапенные в секции protected, доступны только в порожденных от него классах. Область видимости элементов класса этой секции не ограничивается модулем, в котором находится описание класса. Обычно в секцию protected помещают описание методов класса.

Элементы класса, объявленные в секции private, видимы только внутри модуля. Эти элементы не доступны за пределами модуля, даже в производных классах. Обычно в секцию private помешают описание полей класса, а методы, обеспечивающие доступ к этим полям, помешают в секцию

protected.

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

Элементы класса, объяапенные в секции protected, доступны только в порожденных от него классах. Область видимости элементов класса этой секции не ограничивается модулем, в котором находится описание класса.Обычно в секцию protected помещают описание методов класса.

 

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

 Показать / Скрыть текст

TPerson = class 

private

FName: THame; // значение свойства Name

FAddress: Tftddress; // значение свойства Address

protected

Constructor Create(Name:TName);

Function GetName: THarae;

Function GetAddress: TAddress;

Procedure SetAddress(NewAddress:TAddress);

Property Name: THarae

read GetNaitie;

Property Address: TAddress

read GetAddress

write SetAddress;

end; 

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

  

Полиморфизм и виртуальные методы

 

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

Пусть определены три класса, один из которых является базовым для двух других:

 Показать / Скрыть текст

type

 

// базовый класс

TPerson = class

fname: string; // имя

constructor Create (name:string);

function info: string; victual;

end;

// производный от TPerson

TStud = class (TPerson)

fgr: integer; // номер учебной группы

constructor Create(name:string;gr:integer)

function info: string; override;

end;

// производный от TPerson

TProf = class(TPerson)

fdep:string; // название кафедры

constructor Create(name:string;dep:string);

function info: string; override;

end;

 

В каждом из этих классов определен метод info. В базовом классе при помощи директивы virtual метод info объявлен виртуальным. Объявление метода виртуальным дает возможность дочернему классу произвести замену виртуального метода своим собственным. В каждом дочернем классе определен свой метод info, который замещает соответствующий метод родительского класса (метод порожденного класса, замещающий виртуальный метод родительского класса, помечается директивой override).

Ниже приведено определение метода info для каждого класса.

 Показать / Скрыть текст

function TPerson.info:string;

 

begin

result := ";

end;

function TStud.infa:string;

begin

result ;= fname + ' rp.' + intTostr(fgr];

end;

function TProf.info:string;

begin

result := fname + ' каф.' + fdep;

end;

Так как оба класса порождены от одного и того же базового, объявить список студентов и преподавателей можно так (здесь следует вспомнить, что объект — это указатель):

 list: azrray[1..SZL] of TPerson;

 

Объявить подобным образом список можно потому, что язык Delphi позволяет указателю на родительский класс присвоить значение указателя на дочерний класс. Поэтому элементами массива list могут быть как объекты класса Tstud, так и объекты класса TProf.

 

Вывести список студентов и преподавателей можно применением метода info к элементам массива. Например, так:

 Показать / Скрыть текст

st := ''; 

for i:=l to SZL do // SZL — размер мзссивз-списка

if  list <> NIL

then st := st + list.Info + #13;

ShowMessage(st);

 

Во время работы программы каждый элемент массива может содержать как объект типа Tstud, так и объект типа TProf. Концепция полиморфизма обеспечивает применение к объекту именно того метода, который соответствует типу объекта.

Следующая программа, используя рассмотренные выше объявления классов TPerson, Tstud и Tprof, формирует и выводит список студентов и преподавателей. Текст программы приведен в листинге 9.1, а диалоговое окно — на рис. 9.1. 

Листинг 9.1. Демонстрация полиморфизма

 Показать / Скрыть текст

001.unit polimor_; 

002.interface

003.uses

004.Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,

005.Dialogs, StdCtrls;

006.type

007.TForml = class(TForm)

008.Editl: TEdit;

009.Edit2: TEdit;

010.GroupBoxl: TGroupBox;

011.RadioButtonl: TRadioButton;

012.RadioButton2: TRadioButton;

013.Label!: TLabel;

014.Label2: TLabel;

015.Buttonl: TButton;

016.Button2: TButton;

017.procedure ButtonlClickfSender: TObject);

018.procedure Button2Click(Sender: TObject);

019.private

020.{ Private declarations }

021.public

022.{ Public declarations }

023.end;

024.type

025.// базовый класс

026.ТPerson = class

027.fName: string; // ими

028.constructor Create(name:string) ;

029.function info:atring; virtual;

030.emd;

031.// класс Студент

032.TStud = class (TPerson)

033.fGr:integer; // номер группы

034.constructor Create(name:string;gr:integer);

035.function inforstring; override;

036.end;

037.// класс Преподаватель

038.TProf = clasa(TPerson)

039.fdep:string; // название кафедры

040.constructor Create{name:string;dep:string);

041.function info:string; override;

042.end;

043.const

044.SZL = 10; // размер списка

045.var

046.Forml: TForml;

047.List: array[1..SZL] of TPerson; // список

048.n:integer = 0; // кол-во людей в списке

049.implementation

050.{$R *.DFM}

051.constructor TPerson.Create(name:string);

052.begin

053.fNam^ := name;

054.and;

055.constructor TStud.Create(name:string;gr:integer);

056.begin

057.inherited create(name); // вызвать конструктор базового класса

058.fGr := gr;

059.end;

060.constructor TProf.create(name:string; dep:string);

061.begin

062.inherited create(name); // вызвать конструктор базового класса

063.fDep := dep;

064.end;

065.function TPerson.Info:string;

066.begin

067.result := fname;

068.end;

069.function TStud.Info:string;

070.begin

071.result : = fname + ' rp. ' + IntToStr (fGr) ;

072.end;

073.function TProf.Info:string,-

074.begin

075.result := fname + ' каф. ' +• fDep;

076.end;

077.// щелчок на кнопке Добавить

078.procedure TForml.ButtonlClick(Sender: TObject);

079.begin

080.if n < SZL then

081.begin

082.// добавить объект в список

083.n:=n+l;

084.if Radiobuttoni.Checked

085.then // создадим объект TStvd

086.List[n]:=TStud.Create(Editl.Text,StrToInt(Edit2.Text)I

087.else // создать объект TProf

088.List[n]:=TProf.Create(Editl-Text,Edit2.Text);

089.// очистить поля ввода

090.Editl.Text := ' ' ;

091.Edit2.Text := '';

092.Editl .SetFocus; // курсор в поле Фамилия

093.end

094.else ShowMessage('Список заполнен!'];

095.end;

096.// щелчок из кнопке Список

097.procedure TForml.Button2Click(Sender: TObject);

098.var

099.i:integer; // индекс

100.st:string; // список

101.begin

102.for i:=l to SZL do

103.if listti] <> NIL then st:=st + list.info + 113;

104.ShowMessage ( 'Список'-013-t-st) ;

105.end;end.

 

Процедура TForm1.Buttonlclick, которая запускается нажатием кнопки Добавить (Button1), создает объект list[ n ] класса Tstud или TProf. Класс создаваемого объекта опрелеляется состоянием переключателя RadioButton. Установка переключателя в положение студент (RadioButtoni) определяет класс TStud, а в положение преподаватель (RadioSutton2) — класс TProf. 

 

Процедура TForm1. Button2click, которая запускается нажатием кнопки Список (Button2), применяя метод info к каждому объекту списка (элементу массива), формирует строку, представляющую собой весь список.

Классы и объекты Delphi

 

Для реализации интерфейсаDelphiиспользует библиотеку классов, которая содержит большое количество разнообразных классов, поддерживающих

форму и различные компоненты формы (командные кнопки, поля редактирования и т. д.).

Для реализации интерфейса Delphi использует библиотеку классов, которая содержит большое количество разнообразных классов, поддерживающих форму и различные компоненты формы (командные кнопки, поля редактирования и т. д.).Во время проектирования формы приложения Delphi автоматически добавляет в текст программы необходимые объекты. 

 

Если сразу после запуска Delphi просмотреть содержимое окна редактора кола, то там можно обнаружить следующие строки: 

 Показать / Скрыть текст

type 

TForm1 = class(TForm)

private

{Private declarations }

public

{ Public declarations }

end;

var

Form1: Tform1;

 

Это описание класса исходной, пустой формы приложения и объявление объекта — формы приложения.

 

Когда программист, добавляя необходимые компоненты, создает форму, Delphi формирует описание класса формы. Когда программист создает функцию обработки события формы или ее компонента, Delphi добавляет объявление метода в описание класса формы приложения.

 

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