СиППО (11-14) (987672), страница 2

Просмтор этого файла доступен только зарегистрированным пользователям. Но у нас супер быстрая регистрация: достаточно только электронной почты!

Текст из файла (страница 2)

if mas[i]>lim then k:=k+1;

result:=k;

end;

{------------------}

var x:clb;

begin

x:=clb.Create(5,3.2); {создаем объект, используем первый конструктор}

x.Inp; {вызов метода}

writeln('Summa=', x.Answer:6:2); {использование свойства}

writeln('Count=', x.KolVo);

x.Free; {уничтожение объекта}

x:=clb.Create; {создаем объект, используем второй конструктор}

x.Inp;

writeln('Summa=', x.Answer:6:2);

writeln('Count=', x.KolVo);

readln;

end.

В нашем примере класс cla является базовым классом: он не имеет предков. Равнозначные термины: родительский класс, класс – предок. Класс clb является классом наследником (равнозначные термины: класс – потомок, дочерний класс). Как видно из примера, наследование поддерживается путем указания класса предка при объявлении класса. В Pascal класс может иметь только одного предка, но класс может иметь любое количество наследников.

Что означает наследование по существу?

Наследование означает, что класс наследник имеет в своем составе все поля класса – предка и может использовать его методы. В нашем случае класс clb имеет следующие данные: lim и массив mas. Из них mas получен по наследству из класса cla, lim добавлен.

Внимание! Повторное объявление в классе-наследнике данных класса-предка недопустимо! Повторное использование имен методов разрешено.

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

Факт наличия класса-предка предъявляет новые требования к структуре конструктора. Конструктор класса-наследника должен вызывать и конструктор класса предка. Это правило распространяется и на конструктор класса TObject. При наличии у конструктора класса-предка формальных параметров, конструктор класса-наследника должен выполнять их инициализацию. Как это делать – видно из приведенного примера.

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

12.Статические и виртуальные методы на Delphi. Полиморфизм.

Delphi поддерживает четыре разновидностей методов:

· Статические.

· Методы сообщений.

· Виртуальные.

· Динамические.

До сих пор мы работали со статическими методами (по умолчанию все методы - статические). Статические методы связываются с их классами во время трансляции (раннее связывание) и к моменту запуска программы адреса всех методов известны и не могут быть пересмотрены во время выполнения.

Методы сообщений позволяют написать реакцию на сообщения (Message) операционной системы Windows.

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

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

Type

Shape=class

x,y,s:double;

Constructor Create (nx,ny:double);

Procedure Area; virtual; {виртуальный метод}

Function Getsq:double;

end;

Circle=class(Shape)

r :double;

Constructor Create(nx,ny,nr:double);

Procedure Area; override; {первая новая реализация виртуального метода}

end;

Rectangle=class(Shape)

a,b:double;

Constructor Create(nx,ny,na,nb:double);

Procedure Area; override; {вторая новая реализация виртуального метода}

end;

{-------------------}

Constructor Shape.Create(nx: Double; ny: Double);

begin

inherited Create;

x:=nx;y:=ny;

end;

Procedure Shape.Area;

begin

s:=0;

Writeln('Площадь будет вычислена позже');

end;

Function Shape.Getsq;

begin

result:=s;

end;

{-----------------}

Constructor Circle.Create(nx: Double; ny: Double; nr: Double);

begin

inherited Create(nx, ny);

r:=nr;

end;

Procedure Circle.Area;

begin

s:=3.14*sqr(r);

Writeln('Площадь круга:',s:6:2);

end;

{-----------------}

Constructor Rectangle.Create(nx: Double; ny: Double; na: Double; nb: Double);

begin

Inherited Create(nx,ny);

a:=na;b:=nb;

end;

Procedure Rectangle.Area;

begin

s:=a*b;

Writeln('Площадь прямоугольника: ',s:6:2);

end;

{-----------------------}

var z :Shape;

begin

z:=Shape.Create(4.5,6.3);

z.Area; {выполняется Shape.Area }

z.Free;

z:=Circle.Create(12.4,34.2,10);

z.Area; {выполняется Circle.Area }

z.Free;

z:=Rectangle.Create(54.2,76.1,10,25);

z.Area; {выполняется Rectangle.Area }

readln;

end.

При первом упоминании нового виртуального метода используется ключевое слово virtual (для создания динамических методов dynamic). В классе-наследнике можно создать новую реализацию этого метода, там используется ключевое слово override. Виртуальными могут быть как процедуры, так и функции. Новую реализацию можно создать под существующий интерфейс метода: имя и состав формальных параметров должны полностью совпадать. В этом и заключается основной смысл использования виртуальных методов: класс-наследник может иметь (а может и не иметь) новую реализацию метода базового класса. Во время выполнения программы будет выбрана необходимая реализация. В нашем примере имеются три вызова z.Area; но запущены будут разные по сути процедуры. Это третье свойство объектно-ориентированного программирования - полиморфизм.

13. Конструкторы и деструкторы на Delphi. Конструкторы и наследование

Объявление переменной типа класс по существу является лишь объявлением указателя на будущий объект. Сам объект создается при запуске конструктора класса, который выполняет все имеющихся в нем операторы, возвращает адрес созданного объекта, который можно присвоить указателю. Существует и конструктор по умолчанию: он создаст объект, но никаких действий применительно к нашему конкретному классу он не выполняет. Поэтому в состав конструктора целесообразно включить операторы, которые необходимо выполнять при создании нового объекта. Например, в нашем случае – операторы ввода. Правила оформления конструктора совпадают с правилами оформления процедур, за исключением того, что вместо служебного слова Procedure пишется Constructor. Выбор в качестве имени конструктора Create является лишь традицией и ни к чему авторов программ не обязывает. Естественно, что в одной программе можно одновременно создать в принципе любое количество объектов.

В Pascal память, выделенная для указателя, может также быть освобождена, что по существу означает уничтожение объекта и всей связанной с ним информации. Для освобождения памяти, занятой под класс, имеется две возможности:

1. Если при уничтожении объекта нет необходимости выполнения каких либо действий, то для уничтожения объекта и освобождения занятой им памяти применяют стандартный метод Free.

2. Если уничтожение объекта должно сопровождаться какими-то действиями (например, вывод результатов, закрытие файлов), то эти действия следует запрограммировать в деструкторе. Правила оформления деструктора совпадают с правилами оформления процедур, за исключением того, что вместо служебного слова Procedure пишется Destructor. Выбор в качестве имени деструктора Destroy является лишь традицией и ни к чему авторов программ не обязывает.

Конструкторы и наследование

Type

cla=class

mas: array of real;

Constructor Create(n: integer); overload;{разрешается наличие нескольких конструкторов}

Constructor Create; overload; {в таком случае слово overload обязательно}

end;

clb = class(cla)

lim: real;

Constructor Create(n:integer; gr:real); overload;

Constructor Create; overload;

end;

{методы класса cla }

Constructor cla.Create(n: Integer);

begin

inherited Create;

setlength(mas,n);

end;

Constructor cla.Create;

var k:integer;

begin

inherited Create;

Write('N='); readln(k);

setlength(mas,k);

end;

{методы класса clb }

Constructor clb.Create(n: Integer; gr: real);

begin

inherited Create(n); {передача фактического параметра конструктору предка}

lim:=gr;

end;

Constructor clb.Create;

begin

inherited Create;

write('Border='); readln (lim);

end;

Конструктор класса-наследника должен вызывать и конструктор класса предка. Это правило распространяется и на конструктор класса TObject. При наличии у конструктора класса-предка формальных параметров, конструктор класса-наследника должен выполнять их инициализацию. Как это делать – видно из приведенного примера.

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

14. Динамическое создание объектов на Delphi.

В Delphi имеется классы, позволяющие работать с динамическими структурами данных. Мы ограничимся рассмотрением класса для работы с массивами указателей, он содержит больше возможностей, чем обычный динамический массив. Это TList, для работы с ним должен быть подключен модуль Classes. Особенно удобно использовать этот класс при необходимости часто добавлять и удалять элементы массива: все необходимые изменения будут выполнены автоматически. В качестве примера покажем создание и работу со списком классов. В качестве элементов списка типа TList, как правило, используют именно классы. Конструктор класса возвращает указатель на экземпляр класса и эти указатели будут записаны в объект типа TList.

uses

SysUtils, Classes; // подключение модуля Classes

type

elem=class // определим структуру хранимых элементов

s:string;

n:integer;

Constructor Create(s1:string;n1:integer);

property nimi:string read s;

property num:integer read n;

end;

Constructor elem.Create(s1: string; n1: Integer);

begin

inherited Create;

s:=s1; n:=n1;

end;

// -------------------------------------

Var

spis :TList; // переменная типа класс TList

Характеристики

Список файлов ответов (шпаргалок)