Объектно-ориентированный подход к созданию программных средств

Существует два способа объявления объектных переменных. Первый был использован в предыдущем примере. Он заключается в декларировании с применением ключевого слова New:
Dim <имя объектной переменной> As New <имя класса>

Этот способ объявления объектной переменной гарантирует, что если при обращении к объекту будет обнаружено, что он не существует, то он автоматически будет создан (в предыдущем примере такими первыми обращениями к объектам были операторы присвоения значения свойства Фамилия этих объектов). Следует иметь в виду, что каждый раз, когда в программе делается обращение к такой переменной, делается проверка, существует ли соответствующий объект. А значит, при каждом обращении к такому объекту тратится дополнительное время на выполнение такой проверки.

Альтернативный способ заключается в том, что сначала объявляется объектная переменная, принадлежащая к нужному классу, а затем используется оператор Set для связывания этой переменной с объектом. Команда декларирования объектной переменной обычный синтаксис:
Dim <имя объектной переменной> As <имя класса>

При выполнении команды создается объектная переменная соответствующего типа и ей присваивается значение Nothing. Для назначения объектной переменной ссылку на конкретный объект необходимо выполнить оператор Set в одной из следующих форм:
Set <имя объектной переменной> = New <имя класса>
Set <имя объектной переменной> = <идентификатор объекта>

При наличии в операторе Set ключевого слова New выполнения оператора ведет к созданию нового объекта указанного типа и присвоение объектной переменной ссылку на этот объект.
Вторая форма оператора Set применяется для присвоения ссылки на уже существующий объект. Естественно, что такая форма оператора Set можно применять только тогда, когда объект, идентификатор которого используется в команде, уже существует как объект соответствующего класса. Например:
Dim ПопереднийЗамовник As Клиент
Dim ПоточнийЗамовник As Клиент
Set ПоточнийЗамовник = New Клиент
Set ПопереднийЗамовник = ПоточнийЗамовник
ПоточнийЗамовник.Фамилия = "Сумина"
MsgBox ПопереднийЗамовник.Фамилия 'Выводит значение
'Сумина
Set ПоточнийЗамовник = Nothing
MsgBox ПопереднийЗамовник.Фамилия 'Выводит значение
'Сумина

Другие статьи по теме:

- Технологии Internet
- Алгоритмы
- Интегрированная программная среда поддержки дистанционного обучения «МатЛог»
- Язык программирования Паскаль
- Средства доступа к базам данных

Другие голосования

Приглашаем Вас обменяться кнопочками! Обращайтесь к администратору.

• Как выбрать браузер
• Средства структурного анализа и проектирования систем
• Классификация case-средств
• Case-технология проектирования программного обеспечения информационных систем
• Технология intranet
• Технологии Internet
• Средства доступа к базам данных
• Средства быстрой разработки прикладных программ
• Объектно-ориентированный подход к созданию программных средств
• Этапы проектирования при разработке программного продукта