Классы и объекты в Object Pascal. Семенов Н.М. - 5 стр.

UptoLike

ВУЗ: 

ТПУ | Томск

Составители: 

Рубрика: 

Значение полей FirstName и LastName очевидно. Street обозначает улицу (и
номер дома); City, State и Zip относятся к остальной части полного почтового адреса.
Поле LastOrder должно содержать дату в виде ‘2003 - 07 - 22’ , обозначающую дату
последнего размещения клиентом заказа на Вашей фирме.
Использование структуры record подразумевает, что Вы хотите рассматривать
информацию о клиенте как единое целое, но с различными внутренними атрибутами:
именем, адресом и т.д.
Теперь Вы можете описать переменные типа RCustomer следующим образом:
var
Cust1, Cust2 : RCustomer;
ACust : array [1..100] of RCustomer;
Теперь у вас есть два экземпляра (переменные, по обычной терминологии
Паскаля) типа RCustomer, Сust1 и Cust2, а также 100 других экземпляров,
объединённых в структуру массива. Вы можете использовать эти экземпляры
RCustomer для хранения информации о своих клиентах.
1.2. Инициализация клиентов
Как правило, одна из первых задач - это присваивание значений объявленным
переменным (экземплярам, по терминологии ООП). Другими словами, надо провести
инициализацию полей таким образом, чтобы они содержали информацию о Ваших
реальных клиентах. Эту задачу можно выполнить, написав прямую, бесхитростную
программу, заполняющую каждое поле индивидуально:
begin
. . .
Cust1.FirstName := ‘John’;
Cust1.LastName := ‘Smith’;
Cust1.Street := ‘123 Anystreet’;
Cust1.City := ‘Anytown’;
Cust1.State := ‘CA’;
Cust1.Zip := ‘99999 - 8888’;
Cust1.LastOrder := ‘ ‘;
. . .
end;
Можно написать аналогичный код для всех своих компонентов, но скоро Вы
обнаружите, что повторяются всё время одни и те же операции, используя разные
значения экземпляра RCustomer.
Например, операции по инициализации переменной Cust2 выглядят очень
похожими:
begin
. . .
Cust2.FirstName := ‘Mary’;
Cust2.LastName := ‘Jonson’;
Cust2.Street := ‘567 FirstStreet’;

Страницы