Записи со стартовыми значениями

Стартовые значения устанавливаются в разделе определения констант.

Синтаксис: … =(«Имя поля1»: «значение1»; «Имя поля2»: «значение2»;).

Примеры:

Type

Tpoint=record

x,y,color:byte;

end;

const

point:Tpoint=(x:10;y:10;color:2;);

mas_point:array[1..3] of Tpoin =((x:2;y:3;color:5;), (x:12;y:6;color:10;), (x:25;y:30;color:10;));

var

i:byte;

begin

clrscr;

for i:=1 to 3 do

begin

gotoxy(mas_point[i].x,mas_point[i].y);

TextColor(mas_point[i].color);

Write(‘*’);

end;

Вложенные записи

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

Пример:

Type

Name_rec=record

First: string;

last: sting;

End;

Adres=record

Name:name_rec;

Homenum:byte;

streetName:string[20];

End;

Var

S:adres;

В этом случае запись name- вложение в запись s, находясь на более низком уровне иерархии.

Для обращения к вложенной записи указывается вся цепь имен начиная с наивысшего и до конкретного поля, в которое не обходимо обратиться. Между именами цепочки перечисления ставятся точки. символизирующие уровня вложенности.

Readln (s.first); Readln (s.homeum);

Вложенные записи можно строить и в разделе описания переменных.

Var

S:record

Name:record

First: string;

last: sting;

End;

homeNum:byte;

streetName:string[20];

end;