Лабораторная работа 6

Разработка приложения с использованием записей и файлов

Цель лабораторной работы: изучить правила работы с компонентами TOpenDialog и TSaveDialog. Написать программу с использованием файлов и данных типа запись.

Краткие сведения

Программирование с использованием переменных типа запись

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

Type

TStudent = record // Объявление типа запись

Fio: string[20]; //Поле ФИО

Group: integer; //Поле номера студ. группы

Осn: array [1..3] of integer; //Поле массива оценок

end:

Var

Student: TStudent; //Объявление переменной типа запись

Доступ к каждому полю осуществляется указанием имени записи и поля, разделенных точкой, например:

Student.Fio:= 'Иванов А.И.'; //Внесение данных в поля записи

Student.Group:= 107218;

Доступ к полям можно осуществлять также при помощи оператора With:

With Student do

begin

Fio:= 'Иванов А.И.';

Group:= 107218;

end;

Работа с файлами

Файл - это именованная область данных на внешнем физическом носителе. В Object Pascal различают три вида файлов в зависимости от способа их организации и доступа к элементам: текстовые, типизированные и нетипизированные.

Текстовой файл - это файл, состоящий из строк. Примером текстового файла может служить файл исходного текста программы в Delphi (расширение *.pas). Для работы с текстовым файлом должна быть описана соответствующая файловая переменная:

var F: TextFile;

Типизированные файлы имеют строго заданную их описанием структуру, когда все элементы имеют фиксированный и одинаковый размер. Это свойство типизированных файлов позволяет получить доступ к любому компоненту файла по его порядковому номеру. Элементами такого файла являются, как правило,записи. В описании файловой переменной указывается ее тип:

Var F: TStudent;

Нетипизированный файл – это файл, в котором данные не имеют определенного типа и рассматриваются, как последовательность байт. Файловая переменная объявляется:

Var F: File;

Порядок работы с файлами следующий:

AssignFile(F, 'FileName.txt'); //Связывание файловой переменной F

//с именем дискового файла "FileName.txt"

Rewrite(F); //Создание нового файла

Reset(F); //Открытие уже существующего файла

Read(F, Stud); //Чтение данных из файла

Write(F, Stud) //Запись данных в файл

CloseFile(F); //Закрытие файла