Изменение представления

Для данного типа и данного аспекта его представления допустимо не более одного спецификатора представления. Поэтому если желательно другое представление, то необходимо описать второй тип, производный от первого, и для него специфицировать другое представление.

Пример:

PACKED_DESCRIPTOR and DESCRIPTOR -- это два различных -— типа с одинаковыми характеристиками, но различным представлениемtype DESCRIPTOR is record -- компоненты DESCRIPTOR end record;type PACKED_DESCRIPTOR is new DESCRIPTOR;for PACKED_DESCRIPTOR use record -— спецификаторы компонент для всех или некоторых компонент end record;

Изменение представления может быть теперь достигнуто присваиванием с явным преобразованием типа:

D : DESCRIPTOR; Р : PACKED_DESCRIPTOR;Р := PACKED_DESCRIPTOR(D); —- упаковка D D := DESCRIPTOR(P); -— распаковка Р

Содержание  Назад  Вперед