До сих пор мы определяли классы, включающие в качестве полей только обычные переменные. Не редко, однако, поля класса являются указателями на динамический объект данных, в частности, ссылками на другой класс.
Обратимся к примеру, создадим класс отрезков прямых на плоскости. Очевидно, для описания отрезка достаточно определить две его крайние точки. Наследование в этом случае не пройдет. Отрезок это не “точка и …”, а две точки.
Обратите внимание, TLine не является подклассом TPoint. Два этих класса находятся не в отношении наследования, а в отношении включения, т.е. TLine включает два объекта класса TPoint. Из примера ясно, что свойства тоже могут быть типа класс. Напомним, что FP1 и FP2 являются не объектами типа TPoint, а лишь ссылками на них.
Задумаемся над созданием объектов типа TLine. Достаточно ли написать Line := TLine.Create? Если теперь попытаться определить длину созданного отрезка, возникнет ошибка. Ведь Length, вероятно, выполняет что–то подобное
Length := FP1.Distance(FP2);
где ссылки FP1 и FP2 равны Nil — точки еще не созданы.
Если каким–либо образом удалось создать объекты–точки, то опять, при уничтожении объекта освободится память, выделенная под Line, но память выделенная под объекты FP1 и FP2 будет потеряна. Совершенно аналогичная проблема возникнет и при выделении памяти не под объекты, а любые другие динамические структуры.
Средства ООП, позволяющие избежать подобных затруднений, обсуждаются в следующем параграфе. Здесь же мы еще раз подчеркнем новое явление, классы могут находиться не только в отношении наследования, но и в отношении включения, как TLine включает поля TPoint.
|
Главная
Каталог файлов
