Теория и практика объектно-ориентированного программирования. Ноткин А.М. - 22 стр.

                                   23

      1. Класс “группа” содержит поля данных объектного типа. Таким об-
разом, объект “группа” в качестве данных содержит либо непосредственно
свои элементы, либо указатели на них:
      Type
           TWindowDialog=object(TGroup)
           Input1        :TInputLine;
           Edit1        :TEdit;
           Button1      :TButton;
      {другие поля и методы}
      end;
      Такой способ реализации группы используется в Delphi.
      2. Группа содержит поле last типа PObject, которое указывает на на-
чало связанного списка объектов, включенных в группу. В этом случае
объекты должны иметь поле next типа PObject, указывающее на следую-
щий элемент в списке.
      3. Создается связанный список записей типа TItem:
      Type
           PItem=^TItem;
           TItem=record
                  next :PItem;
                  item :PObject;
          end;
      Поле item указывает на объект, включенный в группу. Группа со-
держит поле last типа PItem, которое указывает на начало связанного спи-
ска записей типа TItem.
      Если необходим доступ элементов группы к ее полям и методам,
объект типа TObject должен иметь поле owner типа TGroup, которое ука-
зывает на собственника этого элемента.

     Методы группы.
     Имеется два метода, которые необходимы для функционирования
группы:
     1) Procedure Insert(p:PObject);
     Вставляет элемент в группу.
     2) Procedure Show;
     Позволяет просмотреть группу.
     Кроме этого, группа может содержать следующие методы:
     1) Function Empty:boolean;
     Показывает, есть ли хотя бы один элемент в группе.
     2) Procedure Delete (p:PObject);
     Удаляет элемент из группы, но сохраняет его в памяти.