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

Twitter SEO Community Ваау! News2.ru Chipp Korica SMI2 Google Bookmarks Digg I.ua Закладки Yandex Linkstore Myscoop Communizm Ru-marks Webmarks Ruspace Linkomatic Kli.kz Web-zakladka Zakladok.net Reddit delicious Ma.gnolia Technorati Slashdot Yahoo My Web БобрДобр.ru Memori.ru rucity.com МоёМесто.ru Mister Wong

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