Лабораторная работа № 8. Структура данных типа запись

Цель работы.

Целью работы является получение практических навыков работы по определению собственных типов данных сложной структуры и использованию их для решения поставленных задач.

Общие сведения.

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

Объявление комбинированных типов, объектами которых являются записи, осуществляются с помощью резервированного слова RECORD. Записи состоят из фиксированного количества компонентов, называемых полями.

При объявлении должны быть указаны имя и тип каждого поля. Именем поля может быть любой идентификатор.

Тип записи должен быть объявлен в разделе type. В общем виде запись объявляется так:

= record.

: ;

: ;

…

: ;

end;

где:

— имя типа записи;

— имя типа i-го компонента (поля) записи;

record, end — зарезервированные слова.

Примеры:

type.

Tperson = record.

fam: string[20];

imya: string[20];

day: integer;

Month: integer;

year: integer;

address:string[50];

end;

TDate = record.

day: integer;

month: integer;

year: integer;

end;

Согласно принятому в Delphi соглашению, имена типов должны начинаться с буквы Т (от слова Type — тип). После объявления типа записи можно объявить переменную, относящуюся к этому типу, например:

var.

student: Tperson;

birthday: TDate;

Для доступа к полю записи указывают имя записи и имя поля, отделяя имя поля от имени записи точкой. Например, инструкция ShowMessage (`Имя: ', student. fam + `Адрес: ', student. address); выводит имя и адрес студента в переменной — записи student. Иногда тип переменной — записи объявляют непосредственно в разделе объявления переменных. В этом случае тип записи указывается сразу за именем переменной, через двоеточие. Например, запись student может быть объявлена в разделе var следующим образом:

var.

student: record.

fam: string[20];

Imya: string[20];

day:integer;

month:integer;

address: string[50];

end;

С помощью инструкции with устанавливается область, внутри которой к компонентам записи можно обращаться по имени поля, не употребляя ни имени всей записи, ни точки. В общем случае инструкция выглядит так:

with do.

begin.

{ последовательность инструкций}.

end;

где:

with — зарезервированное слово, означающее, что далее до слова end при обращении к полям записи можно не указывать имя записи;

— имя переменнойзаписи.

Например, если в программе объявлена переменная — запись.

student: record.

fam: string[20];

Imya: string[20];

address:string[50];

end;

и данные о студенте находятся в полях Edit1, Edit2 и Edit3 диалогового окна, то для заполнения полей записи вместо инструкции;

student.fam:= Edit1. text;

student.Imya:= Edit2. text;

student.address:= Edit3. text;

можно записать.

with student do.

begin.

fam:= Edit1. text;

Imya:= Edit2. text;

address:= Edit3. text;

end;

Записи можно хранить в файле. Для этого надо объявить файл, указав в качестве типа его компонентов тип записи (record). Например, инструкции.

type.

Tperson = record.

fam:string[20];

Imya: string[20];

address: string[50];

end;

var.

f: file of Tperson;

объявляют файл, компонентами которого являются записи типа Tperson. После объявления файла, связывания файловой переменной с конкретным файлом (AssignFile), открытия файла (Append, Reset или Rewrite) переменные-записи могут записываться в файл и читаться из файла инструкциями write и read соответственно.

Задание на работу.

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

unit appres;

interface.

uses.

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls;

type.

TForm1 = class (TForm) // описание формы приложения.

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Edit1: TEdit.

Button1: TButton;

Label5: TLabel;

ComboBox1: TComboBox;

ComboBox2: TComboBox;

RadioGroup1: TRadioGroup;

Label4: TLabel;

procedure FormActivate (Sender: TObject);

procedure FormClose (Sender: TObject; var Action: TCloseAction);

procedure Button1Click (Sender: TObject);

private.

{Private declarations}.

public.

{Public declarations}.

end;

TKind = (GOLD, SILVER, BRONZE); // тип медали.

TMedal = record // запись файла.

country: string[20];

sport: string[20];

person: string[40];

kind: TKind;

end;

var.

Form1: TForm1;

f: file of TMedal;

implementation.

{$R *.DFM}.

procedure TForm1. FormActivate (Sender: TObject);

var.

resp: word;

begin.

AssignFile (f, `с: medals. db');

{$I-}.

Append (f); // открыть файл для добавления.

{$I+}.

if IOresult = 0.

then button1. enabled:= TRUE.

else.

begin.

resp:= MessageDlg (`Файл базы данных не найден' +.

`Создать новую БД?', mtInformation,.

[mbYes, mbNo], 0);

if resp = mrYes.

then begin.

{$I-}.

rewrite (f);

{$I+}.

if IOresult = 0.

then button1. enabled:= TRUE.

else ShowMessage (`Ошибка создания БД.');

end;

end;

end;

procedure TForm. Button1Click (Sender: TObject);

var.

medal: TMedal;

begin.

with medal do.

begin.

country:= ComboBox1. Text;

sport:= Combo Box2. Text;

person:= Edit1. Text;

case RadioGroup1. ItemIndex of.

• 0:kind:= GOLD;
• 1:kind:= SILVER;
• 2:kind:= BRONZE;

end;

end;

write (f, medal);

end;

procedure TForm1. FormClose (Sender: TObject; var Action: TCloseAction);

begin.

CloseFile (f);

end;

Файл базы данных открывается процедурой TForm1.Activate. Добавление записи в файл выполняет процедура TForm1. Button1Click, которая запускается при щелчке на кнопке Добавить. Значения полей записи country и sport заполняются с помощью компонент комбинированных списков — ComboBox1(Страна) и ComboBox2(Вид спорта). Список стран и видов спорта следует ввести во время создания формы приложения в свойства Items. Поле person заполняется из поля Edit1 (Спортсмен). Значение поля medal определяется выбранной кнопкой компонента RadioGroup. Закрытие файла базы данных выполняет процедура TForm1.FormClose.

Объявление файловой переменной f выведено в раздел объявления переменных var, так как она используется во всех процедурах. Тип TMedal используется двумя процедурами TForm1. Activate и TForm1. Button1Click, то его описание помещено в раздел type .

Для решения второй части поставленной задачи создадим диалоговое окно Form1, которое состоит из компоненты Edit1- окна редактирования, Memo1- окна списка и кнопки управления Button1- «Поиск». Edit1 используется для ввода названия страны, Memo1 для вывода списка медалей полученной страной участницей. В следующей таблице приведены значения некоторых свойств компоненты Memo1.

Свойство Значение.

Name Memo1.

ScrollBar ssWertical.

ReadOnly True.

Чтение записи из файла и вывод списка медалей выполняет процедура, которая запускается в результате щелчка на кнопке Поиск.

procedure TForm1. Button1Click (Sender: TObject);

type.

TKind = (GOLD, SILVER, BRONZE);

TMedal = record.

country: string[20];

sport: string[20];

person: string[40];

kind: TKind;

end;

var.

f:file of TMedal;

rec: TMedal;

n: integer; // общее количество медалей.

st: string[80];

begin.

AssignFile (f, `с: medals. db');

{$I-}.

Reset (f);

{$I+}.

if IOresult 0.

then ShowMessage (`Ошибка открытия файла БД');

else.

begin.

// обработка БД.

Button1.enabled:= FALSE;

n:= 0;

while not EOF (f) do.

begin.

read (f, rec);

if rec. country = Edit1.Text.

then.

begin.

if n = 0.

then Memo1.Lines.Add (`*** ` + Edit1. Text +' ***');

n:=n+1;

case rec. kind of.

GOLD: st:= `Золотая';

SILVER: st:= `Серебрянная';

BRONZE; st:= `Бронзовая';

end; {case}.

st:= st + rec. sport+' `+rec.person;

Memo1.Lines.Add (st);

end;

end;

CloseFile (f);

if n = 0.

then ShowMessage (`В БД нет информации о спортменах страны страны'+Edit1.Text);

Button1.enabled:= TRUE;

end;

end;

Процедура открывает файл и последовательно читает находящиеся в нем записи. Если прочитанная запись удовлетворяет условию запроса — содержимое поля country совпадает с названием страны, введенным пользователем в поле Страна (Edit1) диалогового окна, то содержимое записи добавляется в поле Memo1. Добавление информации в поле Memo выполняет инструкция Memo1.Line.Add (st), которая является инструкцией применения метода Add (Добавить) к компоненту Memo1 .

Задания для самостоятельного выполнения.

Составить проект Delphi с помощью которого создается файл содержащий сведения о количестве собранных изделий типов А, В и С членами бригад. Проект должен содержать компоненты ComboBox1(номера бригад), ComboBox2(цены отдельных изделий по типам), Edit1(количество собранных изделий), Edit2(фамилия рабочего, собравшего эти изделия) и RadioGroup1(наименование изделий). Написать программу, в результате которой можно получить информацию об итоговых данных сбора изделий по месяцам — по типам, по сумме собранных изделий. Найти номер бригады, собравшей наибольшее количество изделий за месяц.

Созданный Вами проект будет эксплуатироваться в регистратуре городской поликлиники. Он должен содержать следующие компоненты ComboBox1(специальности врачей), ComboBox2(фамилии врачей), Edit1(фамилия посетителя) и RadioGroup1(учащиеся, пенсионеры, рабочие и служащие, не работающие). В результате обработки данных файла составьте ежедневные итоги по количеству пациентов принятых врачами различных специальностей в порядке убывания числа принятых пациентов.

Составьте файл, содержащий сведения о стипендиях назначенных студентам учебных групп по результатам сессии. Проект должен содержать следующие компоненты: ComboBox1(курсы), ComboBox2(группы факультета), Edit1(фамилия студента) и RadioGroup1(обычная, повышенная и именная стипендии). В результате обработки созданного файла нужно найти число студентов получающих обычную, повышенную и именную стипендии по факультету в целом.

Создайте проект Delphi с помощью которого производится регистрация участников международной научной конференции. Проект должен содержать следующие компоненты: ComboBox1(страна ближнего зарубежья), ComboBox2(название секций), Edit1(фамилия участника) и RadioGroup1(доклад, сообщение, стендовый доклад). Обработав созданный файл мы должны получить информацию о количестве участников из разных стран, сколько человек должны делать доклад сколько человек выступят с сообщениями и сколько будет стендовых докладов.

Обработка результатов Республиканской олимпиады юных техников может быть произведено с помощью Вашей программы. Проект должен содержать следующие компоненты: ComboBox1(название областей), ComboBox2(вид секции), Edit1(фамилия участника) и RadioGroup1(награды — диплом 1 степени, диплом 2 степени и диплом 3 степени). В результате обработки файла мы должны получить возможность обобщения данных — область, занявшая 1 место и в скольких секциях принимали участие учащиеся этой области.

На посту ГАИ установлен компьютер. Сотрудник ГАИ заносит в компьютер данные о зарегистрированных нарушениях допущенных водителями автотраспорта. Проект имеет следующие компоненты: ComboBox1(тип машины), ComboBox2(цвет машины), Edit1(фамилия_номер_машины) и RadioGroup1(вид наказанияпредупреждение, штраф, лишение водительских прав). Обработав данные такого файла можно определить степень тяжести допущенных нарушений, сгруппировав их по виду нарушений. Водителями какого вида автотранспорта допускаются наибольшее количество нарушений?

Составьте программу регистрации основных моментов игры в хоккей между командами, А и В. Программа должна содержать следующие компоненты: ComboBox1(название играющих команд), ComboBox2(фамилия_игрока_номер), Edit1(номер игрока) и RadioGroup1(гол, голевая передача, штраф 2 мин.).