Современные технологии разработки программного обеспечения. Сивохин А.В - 38 стр.

4. Ввести имя класса Beeper в поле Name вкладки атрибутов для
сздаваемого класса.
5. Щелкнуть мышью по кнопке Interfase и ввести имя интерфейса
Ibeeper.
 6. Выделить элемент Ibeeper на дереве типов.
  7. Щелкнуть на кнопку Method и ввести в поле Declaration вкладки
Atributes метод prcedure Beep, а в поле индекса диспетчирования ID
единицу.
  8. . Щелкнуть по кнопке Property и ввести в поле Declaration
вкладки Atributes свойство property Sound: SoundTypes, а в поле ID
двойку.
 9. Еще раз щелкнуть по кнопке Property и ввести второе свойство
property SoundBeep[SoundType: SoundTypes]: SoundTypes, а в поле
ID тройку. Поскольку это свойство предназначено только для
чтения, в поле
Property Type установить значение Read.
  10. Выделить на дереве типов элемент Ibeeper и проверить на
вкладке Members правильность ввода метода и свойств интерфейса.
В случае необходимости скорректировать неправильный элемент,
выбрав его на дереве типов.
  11. Щелкнуть мышью по кнопке Enum и ввести в поле Name
вкладки
Atributes имя перечислимого типа SoundTypes.
  12.   На вкладке Members ввести заданные перечислимые
константы.
  13. Нажать клавишу F12 пульта и проанализировать полученные
спецификации.
14. Сохранить в рабочем каталоге вновь созданную библиотеку,
выполнив команду File\Save as.




                                38