ВУЗ:
Составители:
Рубрика:
визуальные компоненты. Каждый экземпляр TCustList теперь содержит
дополнительные шесть переменных, или полей, определенных в описании класса.
Как Вы уже знаете, просто описание формы TCustList не создает её экземпляров,
которые могут быть использованы во время выполнения. Хотя Delphi автоматически
объявляет переменную в строке 24, резервируя место для ссылки на экземпляр формы,
эта переменная не может быть использована до тех пор, пока что - нибудь не выполнит
её инициализацию. Это “что- нибудь” - оператор, находящийся в основном исходном
файле проекта, который создает новый экземпляр формы и присваивает ссылку на него
экземпляру переменной CustList.
Вы можете проверить, что форма действительно создается в основном файле
проекта, выделив Вид/ Список модулей/ NameList. В конце появившегося файла -
источника Вы увидите код:
begin
Application.Initialize;
Application. CreateForm (TCustList, CustList);
Application. Run;
end.
Второй оператор после начального begin - это вызов процедуры, присваивающей
переменной CustList ссылки на созданный экземпляр класса TCustList.
Заметьте, что пока программа ничего не делает. Вы только создали видимую
конструкцию для части интерфейса пользователя.
4. Контрольные вопросы
1. Для каких программ наиболее эффективно применение технологии объектно
- ориентированного программирования?
2. Каковы основные преимущества ООП по сравнению с обычным структурным
программированием?
3. Чем определяется состояние объекта (экземпляра объекта)?
4. Чем отличается переменная классового типа от экземпляра класса?
5. Какова технология удаления строки
14: ButtonDelete: TButton;
в листинге 2?
5. Дополнительные задания
1. Определите структуру данных для класса TDate, хранящего дату. Определите
интерфейсные методы, которые возвращают год, месяц и день по отдельности. Также
определите методы доступа, которые могут устанавливать как некоторые, так и все
сразу элементы экземпляра класса. Всю работу попробуйте пропустить через
транслятор Object Pascal.
2. Определите структуру объекта TInvoice (invoice -накладная). Не забудьте
обеспечить возможность для
накладной ссылаться на родственный класс TCustomer,
определённый в этой лабораторной работе (стр. 15). Результат выполнения задания
попробуйте оттранслировать на Object Pascal.
