Инструкция доступа with
Инструкция позволяет выполнить одинаковые действия для всех полей записи с выбранным именем. Используется, чтобы не указывать каждый раз полное имя поля записи. Формат инструкции
with <Имя_записи> do < Инструкция >;
Пример 1. Заполняется запись с данными о студенте. Обычная обработка записи.
program Records;
{$mode objfpc}{$H+}
uses SysUtils, RusTrans; // Ссылка на модули
type
Person=record // Определен тип записи
Family: String[10];
Sex:(Male, Female);
Age:integer;
Married:boolean;
end;
var
Student:Person; // Определена переменная
begin
Student.Family:=Rus(’Иванов’); // Заполнение записи
Student.Sex:= Male;
Student.Age:=18;
Student.Married:=False;
writeln(‘Family ‘,Student.Family);
readln;
end.
Пример 2. Заполняется запись с данными о студенте. Обработка с использованием инструкции with.
program Operator_With;
{$mode objfpc}{$H+}
uses SysUtils, RusTrans; // Ссылка на модули
type
Person=record // Определен тип записи
Family: string[10];
Sex:(Male, Female);
Age:integer;
Married: boolean;
end;
var
Student:Person; // Определена переменная
begin
with Student do // Заполнение записи
begin
Family:=Rus(’Иванов’);
Sex:= Male;
Age:=18;
Married:=False;
end;
writeln(‘Family ‘,Student.Family);
readln;
end.