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

UptoLike

ВУЗ: 

ТПУ | Томск

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

Рубрика: 

Поле21,
Поле22,
. . .
Поле2М: Тип2;
ПолеХ1,
ПолеХ2,
. . .
ПолеХР: ТипХ
end;
Пример:
TColorRectangle = class
Left,
Top,
Right,
Bottom: Integer;
Color: TColor;
end;
Вы можете определять поля данных внутри описания класса способом,
аналогичным определению полей записей.
Все описания полей определяют формат экземпляра, т.е. “карту” размещения
объекта в памяти, указывая относительные размеры полей в порядке их объявления.
2.5 Продолжение примера с клиентами
Тип RCustomer был первоначально определён как запись с несколькими полями,
соответствующими атрибутам данных. Теперь Вы можете начать преобразовывать
первоначальное необъектное приближение в объектно - ориентированную модель.
Первый шаг - это определение формата данных объекта, представляющего клиента.
Поскольку все поля данных остаются прежними, объектно - ориентированное
определение клиента выглядит почти как определение записи.
Листинг 1 показывает новое объектно - ориентированное образование TCustomer
с полями данных, определёнными ранее.
Листинг 1. Формат данных класса TCustomer.
___________________________________________________________________________
1: unit Cust1;
2:
3: interface
4:
5: type
6 TCustomer = class
7: FirstName : String [25];
8: LastName : String [40];
9: Street : String [80];

Страницы