Тип запись. Структурный тип

Сентябрь 7, 2022

Главная
Алгебра
Тип запись. Структурный тип

Содержание

2. Запись (англ. record) - это сложный тип данных, позволяющие объединить данные разных типов. Запись можно назвать
3. Описание записи Чтобы работать в программе с записями, нужно сначала описать соответствующий тип данных. Запись описывается
4. В блоке полей описание идёт точно так же, как описание переменных: указывается имя поля, далее через
5. Примеры других записей TPoint - запись с двумя полями - X и Y - служит для
6. Запись с константами type TMyRecord = record myRecord1 : string; myRecord2 : integer; myRecord3 : Currency;
7. Работа с записями имя_переменной.название_поля var Person: TPerson; Пример Вводим анкеты - интерфейс ФИО - TEdit (Edit1)
8. procedure TForm1.Button1Click(Sender: TObject); var Person: TPerson; begin Person.Name:=Edit1.Text; Person.Age:=UpDown1.Position; Person.Education:=CheckBox1.Checked; Person.PC:=CheckBox2.Checked; Person.Foreign:=[]; if CheckListBox1.Checked[0] then Person.Foreign:=Person.Foreign
9. Оптимизация procedure TForm1.Button1Click(Sender: TObject); var Person: TPerson; begin with Person do begin Name:=Edit1.Text; Age:=UpDown1.Position; Education:=CheckBox1.Checked; PC:=CheckBox2.Checked;
10. procedure TForm1.Button1Click(Sender: TObject); var Person: TPerson; I: Byte; begin with Person do begin Name:=Edit1.Text; Age:=UpDown1.Position; Education:=CheckBox1.Checked;
11. Записи с вариантами Записи с вариантами - такой тип записей, у которых создано несколько наборов полей,
12. type TLineSegment = record X1,Y1: Real; X2,Y2: Real; end; type TLineSegment = record X,Y: Real; //Один
13. TLineSegment = record case LType: TLineSegmentType of lsPoints: ( X1,Y1: Real; X2,Y2: Real;); lsPolar: ( X,Y:
14. type TLineSegmentType = (lsPoints,lsPolar); TLineSegment = record X,Y: Real; //Один из концов отрезка case LType: TLineSegmentType
17. Скачать презентацию

Слайд 2

Запись (англ. record) - это сложный тип данных, позволяющие объединить данные

разных типов. Запись можно назвать наиболее общим сложным типом данных. Название "запись" появилось из тех соображений, что данные разного типа можно встретить в таблицах: в каждой строке записаны сразу несколько разных значений. Таким образом, одна запись соответствует одной строке данных: она имеет несколько полей, каждое из которых хранит своё значение.

Слайд 3

Описание записи
Чтобы работать в программе с записями, нужно сначала описать соответствующий

тип данных. Запись описывается следующим образом:
type
имя_типа_записи = record
{поля записи}
end;

Слайд 4

В блоке полей описание идёт точно так же, как описание переменных:

указывается имя поля, далее через двоеточие тип данных этого поля. Сами поля разделяются точкой с запятой.
Для примера:
type TForeignLanguages = (flEnglish, flGerman, flFrench);
type
TPerson = record
Name: String;
Age: Byte;
Education,PC: Boolean;
Foreign: set of TForeignLanguages;
end;

Слайд 5

Примеры других записей
TPoint - запись с двумя полями - X

и Y - служит для хранения координат точки.
TPoint = record
X: Longint;
Y: Longint;
end;
TRect - позволяет хранить данные о прямоугольной области. Свойства Left, Top, Right и Bottom отвечают за координаты сторон прямоугольника, а координаты TopLeft и BottomRight типа TPoint - указывают на левую верхнюю и правую нижнюю вершины соответственно (эти вершины позволяют однозначно определить прямоугольник на плоскости, стороны которого параллельны осям координат). Однако в один момент времени используется только один набор из этих свойств - либо 4 координаты, либо 2 точки.
Хранение даты.
TDate = record
Day: 1..31;
Month: 1..12;
Year: 1900..2100;
End;

Слайд 6

Запись с константами
type TMyRecord = record
myRecord1 : string;
myRecord2 :

integer;
myRecord3 : Currency;
end;
const MyRecordConst : TMyRecord =
( myRecord1 : 'myString'; myRecord2 : 125; myRecord3 : 100000 ) ;

Слайд 7

Работа с записями
имя_переменной.название_поля
var Person: TPerson;
Пример
Вводим анкеты - интерфейс
ФИО -

TEdit (Edit1)
Возраст - TEdit (Edit2)
Высшее образование - TCheckBox (CheckBox1)
Владение компьютером - TCheckBox (CheckBox2)
Владение иностранными языками - TCheckListBox ером - TCheckBox (CheckBox2)
Компонент TCheckListBox расположен на странице Additional.
На странице Win32 есть компонент TUpDown - это две кнопки ("вверх-вниз" или "влево-вправо").
Если в свойстве Associate выбрать поле ввода Edit2, то кнопки автоматически разместятся рядом с полем и нажатие на них будет автоматически изменять число в поле.

Слайд 8

procedure TForm1.Button1Click(Sender: TObject);
var Person: TPerson;
begin
Person.Name:=Edit1.Text;
Person.Age:=UpDown1.Position;
Person.Education:=CheckBox1.Checked;
Person.PC:=CheckBox2.Checked;
Person.Foreign:=[];
if

CheckListBox1.Checked[0] then
Person.Foreign:=Person.Foreign + [flEnglish];
if CheckListBox1.Checked[1] then
Person.Foreign:=Person.Foreign + [flGerman];
if CheckListBox1.Checked[2] then
Person.Foreign:=Person.Foreign + [flFrench];
end;

Слайд 9

Оптимизация
procedure TForm1.Button1Click(Sender: TObject);
var Person: TPerson;
begin
with Person do
begin
Name:=Edit1.Text;
Age:=UpDown1.Position;

Education:=CheckBox1.Checked;
PC:=CheckBox2.Checked;
Foreign:=[];
if CheckListBox1.Checked[0] then
Foreign:=Foreign + [flEnglish];
if CheckListBox1.Checked[1] then
Foreign:=Foreign + [flGerman];
if CheckListBox1.Checked[2] then
Foreign:=Foreign + [flFrench];
end;
end;

Слайд 10

procedure TForm1.Button1Click(Sender: TObject);
var Person: TPerson; I: Byte;
begin
with Person do
begin

Name:=Edit1.Text;
Age:=UpDown1.Position;
Education:=CheckBox1.Checked;
PC:=CheckBox2.Checked;
Foreign:=[];
for I := 0 to CheckListBox1.Items.Count-1 do
if CheckListBox1.Checked[I] then
Foreign:=Foreign + [TForeignLanguages(I)];
end;
end;

Слайд 11

Записи с вариантами
Записи с вариантами - такой
тип записей, у которых

создано
несколько наборов полей, а
используемый набор определяется
специальным полем-селектором.
При этом часть полей могут быть
общими для всех наборов.
Например, информация об отрезке прямой на плоскости может быть представлена двумя способами:
Двумя точками, каждая из которых имеет координаты X и Y (т.е. X1,Y1,X2,Y2).
Одной точкой (X,Y), длиной отрезка и углом между ним и какой-либо осью (напр-р, осью X).

Слайд 12

type TLineSegment = record
X1,Y1: Real; X2,Y2: Real; end;
type TLineSegment

= record
X,Y: Real; //Один из концов отрезка
Angle: Real; //Угол наклона
Length: Real; //Длина отрезка end;
TLineSegment = record
case LType:
TLineSegmentType of lsPoints: //Здесь нужно описать первый набор полей...
lsPolar: //...а здесь второй end;
end;

Слайд 13

TLineSegment = record
case LType: TLineSegmentType of
lsPoints: ( X1,Y1:

Real;
X2,Y2: Real;);
lsPolar: ( X,Y: Real;
Angle, Length: Real;);
end;

Слайд 14

type TLineSegmentType =
(lsPoints,lsPolar);
TLineSegment = record
X,Y: Real; //Один

из концов отрезка
case LType: TLineSegmentType of
lsPoints: (
X2,Y2: Real; ); //Второй конец отрезка
lsPolar: (
Angle: Real; //Угол наклона
Length: Real; );//Длина
end;

Слайд 15

Тип запись. Структурный тип

Содержание

Запись (англ. record) - это сложный тип данных, позволяющие объединить данные

Описание записиЧтобы работать в программе с записями, нужно сначала описать соответствующий

В блоке полей описание идёт точно так же, как описание переменных:

Примеры других записей TPoint - запись с двумя полями - X

Запись с константамиtype TMyRecord = record myRecord1 : string; myRecord2 :

Работа с записями имя_переменной.название_поляvar Person: TPerson;ПримерВводим анкеты - интерфейс ФИО -

procedure TForm1.Button1Click(Sender: TObject);var Person: TPerson;begin Person.Name:=Edit1.Text; Person.Age:=UpDown1.Position; Person.Education:=CheckBox1.Checked; Person.PC:=CheckBox2.Checked; Person.Foreign:=[]; if

Оптимизацияprocedure TForm1.Button1Click(Sender: TObject);var Person: TPerson;begin with Person do begin Name:=Edit1.Text; Age:=UpDown1.Position;

procedure TForm1.Button1Click(Sender: TObject);var Person: TPerson; I: Byte;begin with Person do begin

Записи с вариантамиЗаписи с вариантами - такой тип записей, у которых

type TLineSegment = record X1,Y1: Real; X2,Y2: Real; end;type TLineSegment

TLineSegment = record case LType: TLineSegmentType of lsPoints: ( X1,Y1:

type TLineSegmentType = (lsPoints,lsPolar); TLineSegment = record X,Y: Real; //Один

Похожие презентации