Введение в программирование. Pascal и Delphi. Гурьянов Л.В - 110 стр.

UptoLike

109
Например:
procedure Point.Show; virtual;
если объекты создаются динамически, то описать в классе спе-
циальную процедуру
Деструктор (destructor), которая освобождает,
занимаемую объектом динамическую память. Рекомендуется описы-
вать деструктор как виртуальную процедуру.
Итак, вместо
procedure Create в классах "Точка" и "Окружность"
будем использовать
Constructor Create. Затем добавим в эти классы
описание
virtual для методов Show, Hide. И, последнее, исключим
метод
MoveTo из класса "Окружность" (диаграмма классов на рисун-
ке 7.3).
   Например: procedure Point.Show; virtual;
   ƒ если объекты создаются динамически, то описать в классе спе-
циальную процедуру Деструктор (destructor), которая освобождает,
занимаемую объектом динамическую память. Рекомендуется описы-
вать деструктор как виртуальную процедуру.
   Итак, вместо procedure Create в классах "Точка" и "Окружность"
будем использовать Constructor Create. Затем добавим в эти классы
описание virtual для методов Show, Hide. И, последнее, исключим
метод MoveTo из класса "Окружность" (диаграмма классов на рисун-
ке 7.3).




                              109