Виртуальные методы

Рассмотрим примеры двух объектных типов - TPoint и TCircle, которые содержат поля и методы, необходимые для рисования точек и кругов на экране дисплея. Эти два типа связаны отношением наследования и содержат, наряду с другими, одноименные методы SwitchOn, SwitchOff и Move. Рассмотрим подробнее эти методы. Первые два из них реализуют, соответственно, алгоритмы рисования фигуры на экране и ее удаления с экрана (вторая операция, очевидно, аналогична первой с точностью до замены цвета). Легко видеть, что для различных геометрических фигур соответствующие алгоритмы будут различными. В нашем примере эти действия реализуются вызовами стандартных процедур модуля Graph. Поэтому существование различных методов для двух рассматриваемых объектных типов (то есть переопределение этих методов в типе-потомке TCircle) выглядит оправданным.

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

procedure Move (dx, dy: integer);

begin

SwitchOff;

X:= X + dx; Y:= Y + dy;

SwitchOn

end;

В силу однотипности приведенного алгоритма разумным выглядит желание определить метод Move для объектного типа TPoint с тем, чтобы тип-потомок TCircle унаследовал его без переопределения. Однако в данном случае возникает ситуация, сущность которой целесообразно рассмотреть.

Пусть тип TCircle унаследовал у типа TPoint вышеприведенный метод. Если имеются экземпляры двух объектов рассматриваемых типов:

var

OnePoint: TPoint;

OneCircle: TCircle;

то вызов метода OnePoint.Move (10, 20); начнет свое выполнение с вызова метода SwitchOff, который определен в типе TPoint. В результате точка будет погашена и последующие действия приведут к желаемому результату. Описанная последовательность вызовов отмечена на схеме стрелками с буквой А.

OnePoint А

A, B

A

Дата добавления: 2014-01-11