Инструкция доступа 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.

TwitterSEO CommunityВаау!News2.ruChippKoricaSMI2Google BookmarksDiggI.uaЗакладки YandexLinkstoreMyscoopCommunizmRu-marksWebmarksRuspaceLinkomaticKli.kzWeb-zakladkaZakladok.netRedditdeliciousMa.gnoliaTechnoratiSlashdotYahoo My WebБобрДобр.ruMemori.rurucity.comМоёМесто.ruMister Wong

Copyright © 2009-2010 Программирование на паскале.