Type
TAdres=record
homeNum:word;
streetName:string[50];
flatNum:word;
end;
var
adres:TAdres;
2 способ: в разделе описания переменных:
var
Adres=record
homeNum:word;
streetName:string[50];
flatNum:word;
end;
Оба способа одинаково приемлемы, однако 1 способ дает дополнительную гибкость при задание записи в качестве параметров подпрограмм. От того, где объявлены записи существенно зависит их совместимость (смотри обращение к записи как к единому объекту). Размещение в памяти:в памяти поля записи размещаются в порядке их перечисления в объявление и располагаются от младшего к старшему.
Доступ к полям записи.
Над записями в целом допускаются только операции записи в файл. чтение из файла, операция присваивания (если записи совместимы по типу). В большинстве случаев при работе записей идет обращение к отдельным её полям.
Синтаксис обращения:
«Имя записи».«имя поля»;
Adres.homeNum:=200;
Adres.streetName:=100;
Adres.flatNum:=’Zelenay’;
Массивы записей
Возможно определить массив или массивы, элементами которого будут записи.
Пример: Массив. каждый элемент которого несет информацию о точке (место положение цвет):
|
|
Type
Tpoint=record
x,y:byte;
color:byte;
end;
var
mas_point: array [1..10] of Tpoint;
{Пусть требуется заполнить следующие элементы этого массива:}
Randomize;
For I:=1 to 10 do
Begin
Mas_point[i].x:=Random(79)+1;
Mas_point[i].y:=random(25)+1;
Mac_point[i].color:=random(16);
End;