О П Е Р А Т О Р П Р И С О Е Д И Н Е Н И Я

Рассмотрим структуру какого-либо поля памяти, соответствующего конкретной записи, например, поля Student типа StudType из предыдущего примера.

½¾¾¾¾¾¾¾¾¾¾¾¾ Student, 44 байта ¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾®½

21 байт 1 1 2 16 2 1

½¾¾ BirthDay ¾¾®½

Каждое имя, объявленное в разделе VarПаскаль-программы, - это адрес вполне определенного поля памяти в машинной программе. Имя Student - это адрес поля памяти длиной 44 байта. Если в каком-либо операторе Паскаль-программы используется это имя, то речь идет об обработке всего поля размером 44 байта.

Пример:

Var Student,Student1 : StudType;

Begin

Student1:=Student;

Здесь производится чтение поля памяти Student и запись его содержимого в поле Student1, т.е. пересылка содержимого поля памяти из одного места в другое.

Если требуется обработать какое-либо внутреннее поле, входящее в состав записи Student, то для этого используется составное имя, в котором после общего имени записи указывается имя внутреннего поля.

Например,

Student1.Fam:=Student.Fam; Student1.Sex:='м';

Здесь Student.Fam - адрес поля памяти длиной 21 байт, Student.Sex - адрес поля памяти длиной 1 байт.

Переменная Student.BirthDay, входящая в состав записи Student, в свою очередь является записью и определяет поле памяти размером 4 байта. Для доступа к компонентам этого поля аналогичным образом конструируется составное имя:

Student.BirthDay.Day:=10; Student.BirthDay.Month:=11;

Student.BirthDay.Year:=1975;

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

Синтаксис оператора присоединения:

Переменная - это имя записи.

Например, в программе ReadRecord можно было бы записать:

With Student,BirthDay do

Casek of

1 : Fam:=S2;

2 : Fam:=Fam+' '+S2;

3 : Val(S2,Day,Code);

4 : Val(S2,Month,Code);

5 : Val(S2,Year,Code);

6 : Nac:=S2;

7 : Val(S2,SchoolYear,Code);

8 : Sex:=S2[1];

end;

For i:=1 ton do

With Group[i],BirthDay do

Writeln(i:2,' ',Fam,' ',Day:2,' ',Month:2,' ',

Year:4,' ',Nac,' ',SchoolYear,' ',Sex);

Здесь в первом фрагменте полным именем переменной Sex является имя Student.Sex, а переменной Year - Student.BirthDay.Year; во втором фрагменте- соответственно Group[i].Sex и Group[i].BirthDay.Year.

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