Эмиссия газов от очистных сооружений канализации: В последние годы внимание мирового сообщества сосредоточено на экологических проблемах...
Своеобразие русской архитектуры: Основной материал – дерево – быстрота постройки, но недолговечность и необходимость деления...
Топ:
Отражение на счетах бухгалтерского учета процесса приобретения: Процесс заготовления представляет систему экономических событий, включающих приобретение организацией у поставщиков сырья...
Установка замедленного коксования: Чем выше температура и ниже давление, тем место разрыва углеродной цепи всё больше смещается к её концу и значительно возрастает...
Интересное:
Лечение прогрессирующих форм рака: Одним из наиболее важных достижений экспериментальной химиотерапии опухолей, начатой в 60-х и реализованной в 70-х годах, является...
Отражение на счетах бухгалтерского учета процесса приобретения: Процесс заготовления представляет систему экономических событий, включающих приобретение организацией у поставщиков сырья...
Мероприятия для защиты от морозного пучения грунтов: Инженерная защита от морозного (криогенного) пучения грунтов необходима для легких малоэтажных зданий и других сооружений...
Дисциплины:
2021-04-18 | 63 |
5.00
из
|
Заказать работу |
|
|
1) Назначение файловой переменной физического файла
Это связывание файловой переменной с файлом. Осуществляется аналогично связыванию для текстовых файлов. Связь файловой переменной с файлом устанавливается с помощью процедуры Assingfile.
Формат процедуры:
Assingfile(файловая переменная, имя файла);
2) Создание файла
Создание типизированного файла осуществляется процедурой Rewrite(Ф.п.).
Пример
Var
F: file of integer;
Begin
Assignfile(F,’A.Dat’);
Rewrite(F);
End.
После выполнения программы в текущей папке появится файл A.dat. При открытии существующего файла процедурой Rewrite (файловая переменная) файл удаляется. Открытый этой процедурой файл допускает выполнение операции чтения и записи.
3) Открыть существующий для чтения и записи
При открытии типизированного файла процедурой Reset(Ф.п.) данные файла доступны для чтения, но открытый таким образом файл допускает выполнение операции записи в файл.
4) Чтение данных из файла
Осуществляется процедурой
Read(Ф.п., Список переменных);
Переменные в списке должны быть того же типа что и тип файла.
Пример использования процедуры read
Var
F: file of integer;
A:integer;
B:real;
Begin
Assignfile(F,’A.Dat’);
Reset(F);
Read(F,A);
Read(F,B); //Это будет ошибка т.к. тип переменной и файла различен.
End.
5) Записать в файл
Осуществляется процедурой
Write(ф.п., список переменных);
Переменные в списке должны быть того же типа что и тип файла
Пример
Var
F: file of integer;
A:integer;
B:real;
Begin
Assignfile(F,’A.Dat’);
Rewrite(F);
A:=5;
Write(F,A);
End.
6) Закрытие файла
Осуществляет процедура Closefile(Ф.п.). После выполнения этой операции доступ к данным файла невозможен, но связь файловой переменной и с физическим файлом сохраняется.
|
7) Определение кол-во записей в файле.
. В типизированных файлах не рекомендуется использовать функцию Eof. При обработке всех записей файла, следует использовать функцию Filesize(ф.п.):Longint, которая возвращает количество записей в файле.
Пример
Прочитать и вывести все записи файла.
Var
F: file of integer;
A,i:integer;
Begin
Assignfile(F,’A.Dat’);
Reset(F);
For I:=1 to filesize(F)-1 do
Begin
Read(F,A);
Write(A,’ ‘)
End;
End.
8)Определение позиции в типизированном файле
Осуществляет процедура filepos(Ф.п.):longint. Она возвращает номер записи в файле, к которой будет применяться операция ввода/вывода.
Пример
Var
F: file of integer;
A:integer;
Begin
Assignfile(F,’A.Dat’);
Reset(F);
Read(F,A);
Write(Filepos(F)); //результат равен 1(позиция первая)
End.
9) Организация прямого доступа
В типизированных файлах можно выполнять операции чтения и записи к записям с произвольным номером, не выходящим за количество записей файла. Эту операцию выполняет процедура Seek(Ф.п.,N). Ее действие: осуществляет перемещение указателя в позицию N. N - это значение целого типа.
Примеры использования процедуры
Seek(F,0); //Указатель перемещается в положение 0 т.е. доступна первая запись файла
Seek(F,Filesize(F)); //Переместит указатель в конец файла (за последнюю запись)
Seek(F,5); //Указатель установится перед пятой записью.
Требования к выполнению лабораторной работы
1. Создать текстовый файл с тестовыми данными для варианта задания с помощью текстового редактора.
2. Разработать процедуру создания типизированного файла для хранения записей, структура которых определена вариантом.
3. Разработать процедуру заполнения типизированного файла данными из текстового файла. Процедура с параметрами одним из которых – имя файла, из которого читаются данные, а второй, в который записываются данные.
4. Разработать подпрограмму для дополнительной операции над типизированным файлом
5. Разработать подпрограмму для дополнительной операции над текстовым файлом
|
6. Сохранить все подпрограммы в модуле.
7. Разработать проект формы для выполнения операций с файлами, предусмотренными вариантом:
· Открыть текстовый файл, используя элемент управления OpenDialog.
· Открыть типизированный файл, используя элемент управления OpenDialog.
· Создать типизированный файл из записей, определенных вариантом, данные для которых взять из текстового файла.
· Отобразить содержимое текстового файла в элемент формы Мемо.
· Отобразить содержимое типизированного файла в элемент формы StrinGrid
· заполнение полей записи;
· добавление записи в файл.
Таблица 7
Варианты заданий
Структура данных | Дополнительная операция над текстовым файлом | Дополнительная операция над типизированным файлом | |
1 | Массив анкетных данных о студента вуза. Сведения о студенте: Номер зачетной книжки, Фамилия, Имя, Дата рождения, Номер телефона, Дата поступления, Признак удаления записи | Введите данные по новому студенту и добавьте его в текстовый файл и типизированный | Найти и удалить всех окончивших институт (т.е. более 6 лет) |
2 | Массив сведений о спортсменах клуба. О каждом спортсмене известны данные: Фамилия, Имя, Дата рождения, Вес, Рост, Пол | Покажите содержимое К-ой записи текстового файла | Измените значение веса спортсмена Фамилия которого вводиться |
3 | Структура данных – телефонная книжка хранит данные по знакомым: Фамилия, Номер телефона, Дата рождения. Книжка состоит из листов, каждый лист проиндексирован заглавной буквой, на каждой странице несколько записей (не более 20) | Запишите еще одну запись в вашу книжку | Удалите запись об одном из друзей. Удалите текстовый файл и запишите в него данные из типизированного файла. |
4 | Структура данных хранит список жителей. О каждом жителе хранится информация: Фамилия, Город, Адрес: улица, дом, квартира. | Используя дополнительный файл внесите изменения в данные по одному жителю, сменив у него Фамилию. | Внесите изменения, которые вы сделали в текстовом файле и в типизированный файл.(можно операцию выполнить автоматически сразу после внесения данных в текстовый файл) |
5 | Список книг. Сведения о книге: Автор, Название, Инвентарный номер, Издательство, Количество страниц, Цена | Вставьте в файл сведения о новой книге. | Удалите сведения о книге, выбрав ее по ее инвентарному номеру |
6 | Успеваемость группы студентов. Сведения об успеваемости одного студента по одной дисциплине: Номер зачетной книжки, Шифр группы, Название дисциплины, Дата получения оценки, Оценка, Фамилия преподавателя При вводе данных в строковые поля предусмотреть преобразование их к формату: первая буква большая, остальные маленькие) | Выведите фамилии преподавателей принимавших экзамены в заданной группе | Исправьте оценку у заданного студента по заданной дисциплине |
7 | Учет выдачи книг пользователям библиотеки. Карточка пользователя библиотеки содержит сведения, о выданной книге: Номер карточки, Инвентарный номер, Автор, Название, Дата выдачи, Дата возврата | Сформировать список которые должны быть возвращены к дате | Сменить дату возврата указанной книги (инв. Номер) на указанной карточке |
8 | Успеваемость группы студентов. Сведения по одному экзамену одного студента: Номер зачетной книжки, Название дисциплины, Дата получения оценки, Оценка, Фамилия преподавателя. (по каждому студенту будет столько записей сколько экзаменов он сдал). При вводе данных в строковые поля предусмотреть преобразование их к формату: первая буква большая, остальные маленькие | Вывести две последних записи файла. | Удалить все записи, содержащие оценку 2. |
9 | Список экспортируемых товаров. Об отдельном товаре хранятся данные: Наименование товара, Страна импортирующая товар, Количество (в штуках). | Добавить данные по новому товару | Удалить сведения о заданном товаре(по наименованию) и по заданной |
10 | Магазин игрушек. Сведения об игрушке: Название(например: кукла, конструктор и т.д.), стоимость в копейках(вводится может дробное число, содержащее рубли и копейки), возрастные границы детей, для кого игрушка предназначена(два поля – начальный возраст и конечный) | Добавить сведения по новой игрушке | Удалить записи об игрушках по определенной возрастной группе.. |
11 | Служба знакомств. Структура данных хранит сведения о претендентах. Об отдельном претенденте: Фамилия, Имя Отчество, Возраст, Рост, Цвет глаз, Цвет волос, Зарплату, Наличие квартиры, Наличие машины. | Вставить данные о новом претенденте вначале файла. Для этого воспользуйтесь временным файлом | Создайте типизированный файл, запись которого будет содержать подобранную пару |
12 | Продажа квартир. Сведения о продаваемой квартире: Код объекта, Общая площадь, Жилая площадь, Площадь кухни, Наличие лоджии, Наличие санузла и его характеристики(совмещенный или нет), Панельный или кирпичный дом, Этаж, Общее количество этажей, Адрес, Стоимость, Район города | Выведите построчно адреса однокомнатных квартир. | Испавьте ошибку: у объекта с заданным кодом общая жилая площадь указана неверно |
13 | Поликлиника. Структура содержит данные о жителях, обслуживаемых данной поликлиникой. О жителе хранятся сведения: Номер карточки, Фамилия, Имя, Отчество, Адрес, Место работы, Наличие прививки от гриппа, Дата последней флюорографии | Сфорируйте список пациентов, кто должен пройти флюрографию (от даты прошел год) | Изменить старую дату прохождения флюрографии на новую у указанного пациента (по номеру карточки) |
14 | ГИБДД. Структура хранит данные об автомашинах, О каждой машине: Номер учета,Модель, Номер(код региона, цифровой код, буквенный код), Цвет, Сведения о владельце(Фамилия, Имя, Адрес), дата последнего техосмотра. | Список владельце машин марки Volvo. | Изменить дату техосмотра у машин с указанными номерами учета (ввод нескольких номеров в одной входной строке) |
15 | Справочник владельца видеотеки. О каждом видеофильме хранятся данные: Название, Студия, Жанр, Год выпуска, Режиссер, Исполнители главных ролей(не более 10): фамилия. | Список видиофильмов заданного режиссера | Удалить записи заданного года выпуска |
16 | Справочник фаната. Содержит данные о спортсменах: Анкетные и антропологические данные, Гражданство, Вид спорта, Клуб, Данные о личном рекорде(дата, призовое место) | Включить в справочник нового фаната | Сменить клуб у заданного спорсмена указав фамилию |
17 | Справочник коммерческих банков. Об отдельном банке хранятся данные: Наименование, Адрес, Статус (форма собственности), условия хранения средств на личном счету(годовые проценты на различных видах вкладов) | Сформировать список банков с максимальным процентом годовых | Изменит проценты годовых по одному банку (выбор по наименованию) на значения запрашиваемые интерактивно |
18 | Автосалон. Хранит данные об автомобилях и покупателях. Структура хранит сведения о новых и подержанных автомобилях. Об отдельном автомобиле: Марка, Год выпуска, Технические характеристики(Мощность двигателя, Количество цилиндров, и т.д.), Особенности исполнения, Техническое состояние, Запрашиваемая цена. Другая структура хранит сведения о покупателях: контактный телефон, Марка, Технические характеристики, Техническое состояние, Финансовые возможности. | Сформировать список подержанных автомобилей | Удалить записи о подержанных автомобилях. |
19 | Справочник туриста. Турагенство предлагает услуги: Страна, Город, Условия проживания (Звезд у отеля, Автобус и т. д.), Условия проезда, Экскурсионное обслуживание, Сервис принимающей стороны, Стоимость путевки. | Вывести туры с минимальной стоимостью. | Изменить стоимость тура в страну. |
|
|
|
Пример открытия файла с помощью компоненты OpenDialog
На рис.12. представлен проект формы, для демонстрации выполнения операции открытия файла с помощью OpenDialog.
Рис.12. Проект формы
Элемент управления Edit 1 предназначен для отображения имени выбранного файла, кнопка Открыть файл обеспечит выполнение операции открытия файла посредством элемента управления OpenDialog, который является не визуальным элементом, но в проекте формы представлен пиктограммой.
|
|
Индивидуальные и групповые автопоилки: для животных. Схемы и конструкции...
Папиллярные узоры пальцев рук - маркер спортивных способностей: дерматоглифические признаки формируются на 3-5 месяце беременности, не изменяются в течение жизни...
Биохимия спиртового брожения: Основу технологии получения пива составляет спиртовое брожение, - при котором сахар превращается...
Общие условия выбора системы дренажа: Система дренажа выбирается в зависимости от характера защищаемого...
© cyberpedia.su 2017-2024 - Не является автором материалов. Исключительное право сохранено за автором текста.
Если вы не хотите, чтобы данный материал был у нас на сайте, перейдите по ссылке: Нарушение авторских прав. Мы поможем в написании вашей работы!