Сравнительное объектно-ориентированное проектирование - 11 стр.

UptoLike

ВУЗ: 

ЮФУ | Ростов-на-Дону

Составители: 

Рубрика: 

11
обязуется внутри не изменять значения параметра, передаваемого ему с этим
модификатором.
Модификатор
default в свойстве Sprites указывает на то, что доступ к объектам
класса
TSpriteList может осуществляться через свойство Sprites как к элементам
массива – в индексном виде.
В коде настоящего модуля имена, описанные в других модулях, специально
записаны в расширенном формате с тем, чтобы явно указать их
принадлежность. Например, имя типа
TControlCanvas, описанного в модуле
Controls, записано в расширенном виде Controls.TControlCanvas. Вообще говоря,
расширенное имя можно сократить, убрав имя модуля, если отсутствует
конфликт имен.
Метод
procedure BeforeDestruction; override;
имеет модификатор override. Это означает, что метод BeforeDestruction является
виртуальным и унаследован от предка класса
TSpriteList, где он описан как
виртуальный (
virtual). Предком класса TSpriteList является класс TObject.
Другие методы
procedure DeleteSprite(const aZ:integer); virtual;
procedure Clear; virtual;
описаны как виртуальные в самом классе TSpriteList. У наследника
TTracedSpriteList, эти же методы преобретают модификатор override.
Рассмотрим еще один фрагмент кода, относящийся к описанию
Tsprite и
следующий за описанием класса
TSpriteList.
// Тип обработчика события, наступающего перед смещением спрайта
OnMoveEvent=function(Sender:TSprite;var NewLocation:Types.TPoint):Boolean of
object;
// Абстрактный класс спрайта, регулирующий изображение и перемещение спрайта
TSprite=class(TObject)
private
…
// Конструктор
// Создает и инициализирует спрайт, принадлежащий списку Sprites
// с прямоугольником SpriteRect
constructor Create(const SpriteRect:Types.TRect;const Sprites:TSpriteList);
protected
…
// Формирует реальное изображение спрайта (в этом классе метод абстрактный)
procedure PaintPicture;virtual;abstract;
public
…
end;
Здесь

Страницы