Курсовая работа: Программирование на языке высокого уровня 3

До тех пор, пока не достигнут конец файла, читаем записи и если поле записи обозначающей имя не равно переменной “ d ” , пишем во временный файл все наши записи. Удаляем основной файл и переприсваиваем его директорию временному файлу.

Таблица 7. Локальные переменные.

Идентификатор	Тип	Назначение
el	tdvd	Запись
f1	recordfile	Файл с записями

procedure tform1.sort_1(dvdfile: string);

procedure tform1.sort_2(dvdfile: string);

procedure tform1.sort_3(dvdfile: string);

procedure tform1.sort_4(dvdfile: string);

procedure tform1.sort_5(dvdfile: string);

Процедуры, перечисленные выше почти одинаковы различны только по полям сортировки Во всех процедурах используется алгоритм сортировки методом вставки. Параметр dvdfile – директория файла.

Таблица 8. Локальные переменные.

Идентификатор	Тип	Назначение
f	file of disk	Типизированный файл с записями
q	file of disk	Типизированный файл с записями
c	integer	Счётчик записей
i	integer	Элемент массива
n	integer	Элемент массива
buf	disk	Запись
el	tdvd	Массив с записями

procedure Tform 1. editzap ;

Данная процедура осуществляет редактирование данных записанных в файл.

Алгоритм .

Открываем на чтение основной файл с информацией и в переменную nameзаносим название dvd, один из параметров которого нам необходимо заменить.

Пока нет конца файла, запускаем счётчик n . Сравниваем введённое название, с имеющимися в dvd. При совпадении присваиваем переменной mзначение счётчика. Переменная m будет отвечать за позицию записи в фале. Далее переменной newприсваиваем данные, которые надо записать в вместо исходных.

Переходим с помощью функции seek на позицию m -1 , то есть над необходимой записью. Читаем из файла запись.

Затем в case comboBox3.ItemIndex выбираем поле которое необходимо заменить и присваиваем ему значение переменной new . Если параметр не символьный переводим переменную newв цифровой формат при помощи функции.

Перезаписываем запись в файле. Закрываем его и выводим на экран при помощи процедуры vivod .

Таблица 9. Локальные переменные.

Идентификатор	Тип	Назначение
f1	recordfile	Временный файл с записями
q	disk	Запись
s	disk	Запись
new	string	Новые введённые данные
name	string	Введённое название dvd

procedure TForm1.FormCreate(Sender: TObject);

Данная процедура вызывается при создании окна и запускает процедуру nanol . Процедура содержит входную переменную Sender - тип tobject , этот параметр определяет, какой объект программы вызывает данную процедуру.

procedure TForm1.ComboBox2Change(Sender: TObject);

В данной процедуре осуществляется выбор и запуск необходимой процедуры сортировки, путём нажатия одного из пунктов выпадающего списка ComboBox . Процедура содержит входную переменную Sender - тип tobject , этот параметр определяет, какой объект программы вызывает данную процедуру.

procedure TForm1.N8Click(Sender: TObject);

Данная процедура завершает работу программы из меню в случае положительного ответа на появляющееся сообщение. Процедура содержит входную переменную Sender - тип tobject , этот параметр определяет, какой объект программы вызывает данную процедуру.

procedure TForm1.N7Click(Sender: TObject) ;

Данная процедура выводит информацию из файла при помощи при помощи процедуры vivod из меню. Процедура содержит входную переменную Sender - тип tobject , этот параметр определяет, какой объект программы вызывает данную процедуру.

procedure TForm1.N14Click(Sender: TObject);

procedure TForm1.N15Click(Sender: TObject);

procedure TForm1.N16Click(Sender: TObject);