Константы-записи

Определение константы-записи имеет следующий вид:

(<идентификатор>: <тип> = <сп.знач.полей>), где:

<идентификатор> – идентификатор константы;

<тип> – тип записи;

<сп.знач.полей>) – список значений полей.

Список значений полей представляет собой список из последовательностей вида: имя поля, двоеточие и константа. Элементы списка отделяются друг от друга запятыми, например:

type

point= record

x,y:real

end;

vect = array [0.. 1]of point;

month = (Jan, Feb, Mar, Apr, May, Jun,

Hu, Aug, Sep, Oct, Nov, Dec);

date = record

d: 1.. 31;

m: month;

y: 1900.. 1999

end;

const

origon: point= (x: 0; y:-1);

line: vector=((x: -3.1;y: 1.5), (x: 5.9;y: 3.0));

SomeDay: date= (d: 16; m: Mar; y: 1989);

…

Поля должны указываться в той последовательности, в какой они перечислены в объявлении типа. Если в записи используется хотя бы одно поле файлового типа, такую запись нельзя объявлять типизированной константой. Для записи с вариативными полями указывается только один из возможных вариантов констант.

Например:

type

forma= record

caseBoolean of

true: (BirthPlace: string[40]);

false:(Country: string[20];

EntryPort: string[20];

EntryDate: array[1.. 3] of word;

count: word)

End;

const

Percon1: forma= (Country:’Россия’;

EntryPort:’Москва’;

EntryDate: (16, 3, 98);

Count: 12);

Percon2:forma= (BirthPlace:’Санкт-Петербург’);