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

                                   7

     3) если идентификатор модуля длиннее восьми символов, то он дол-
жен совпадать с именами файлов по первым восьми символам.

      •Группа. Объект (структура), в который включены другие объекты
(структуры). Объекты, входящие в группу, называются элементами груп-
пы. Элементы группы, в свою очередь, могут быть группой.
      Примеры групп:
      1) Окно в интерактивной программе, которое владеет такими эле-
ментами, как поля ввода и редактирования данных, кнопки, списки выбо-
ра, диалоговые окна и т.д.
      2) Агрегат, состоящий из более мелких узлов.
      3) Огород, состоящий из растений, системы полива и плана выращи-
вания.
      4) Некая организационная структура (например, ФАКУЛЬТЕТ, КА-
ФЕДРА, СТУДЕНЧЕСКАЯ ГРУППА).
      Реализовать группу можно следующим образом.
      Создается связанный список записей типа TItem:
      Type
           PItem=^TItem;
           TItem=record
                 next :PItem;
                 item :PObject;
          end;
      Поле item указывает на объект, включенный в группу. Группа со-
держит поле last типа PItem, которое указывает на начало связанного спи-
ска объектов, включенных в группу.
      Для работы с группой должны быть определены следующие проце-
дуры и функции:
      1) Procedure GroupInsert(var group:TGroup;p:PObject);
      Включает в группу group структуру, на которую указывает p.
      2) Procedure GroupShow(group:TGroup);
      Позволяет просмотреть группу.
      3) Function GroupEmpty(group:TGroup):boolean;
      Показывает, есть ли хотя бы один элемент в группе.
      4) Procedure GroupDelete(var group:TGroup; p:PObject);
      Удаляет элемент из группы.

      •Итератор. Итераторы позволяют выполнять некоторые действия
для каждого элемента определенного набора данных.
      For all элементов набора do действия