 |
Procedure tform1.vivod (dvdfile:string);
|
|
|
|
Данная процедура осуществляет вывод данных записанных в файл.
Параметр dvdfile – директория файла.
Алгоритм:
Привязываем к файловой переменной “ f ” переменную dvdfile и открываем на чтение. Если файл обнаружен, то в цикле, до тех пор, пока не достигнут конец файла, запускаем счётчик и выводим в ячейки таблицы данные из файла. Если счётчик равен нулю, следовательно, файл пустой, запускается процедура clearlist.
В случае не обнаружения файла, он создаётся в необходимой директории.
Таблица 6. Локальные переменные.
| Идентификатор | Тип | Назначение |
| s | disk | Запись |
| f1 | recordfile | Файл с записями |
| count | integer | Номер по списку |
procedure tform1.deletef (horizon:integer);
Данная процедура осуществляет удаление записи из фала.
Алгоритм:
В параметр d передаётся введённая модель телефона.
Открываем на чтение основной файл “ db _ disk. db ” на чтение и создаём временный “ new. db ”. Перезаписываем его.
До тех пор, пока не достигнут конец файла, читаем записи и если поле записи обозначающей имя не равно переменной “ 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);
procedure TForm1.N17Click(Sender: TObject);
procedure TForm1.N18Click(Sender: TObject);
Процедуры приведённые выше отвечают за запуск процедур сортировки sort_1(derect+'db_disk.db'),sort_2(derect+'db_disk.db'), sort_3(derect+'db_disk.db')sort_4(derect+'db_disk.db'), sort_5(derect+'db_disk.db'), из меню, соответственно. Процедуры содержат входную переменную Sender - тип tobject, этот параметр определяет, какой объект программы вызывает данную процедуру.
procedure TForm1.N5Click(Sender: TObject);
Данная процедура отвечает за запуск процедуры удаления deletef и вывод обновлённой информации с помощью процедуры vivod из меню. Процедура содержит входную переменную Sender - тип tobject, этот параметр определяет, какой объект программы вызывает данную процедуру.
procedure TForm1.N4Click(Sender: TObject);
Данная процедура отвечает за добавление информации в файл с помощью процедуры input из меню. Процедура содержит входную переменную Sender - тип tobject, этот параметр определяет, какой объект программы вызывает данную процедуру.
procedure TForm1.N2Click(Sender: TObject);
Данная процедура запускает процедуру вывода vivod, путём нажатия на необходимый пункт во всплывающем меню над областью таблицы. Процедура содержит входную переменную Sender - тип tobject, этот параметр определяет, какой объект программы вызывает данную процедуру.
procedure TForm1.N10Click(Sender: TObject);
procedure TForm1.N11Click(Sender: TObject);
procedure TForm1.N12Click(Sender: TObject);
procedure TForm1.freg1Click(Sender: TObject);
|
|
|
