з файлами UFile, модуль роботи з одним елементом UElem і модуль допоміжних процедур HelpUtils (рис.6.1).
В
Рис.6.1 Структура програми
Модуль для роботи з файлами відповідає за створення нового файлу, відкриття вже існуючого типізований файлу, завантаження дані з текстового файлу в типізований, друкувати вмісту типізований файлу на екран і збереження його в текстовий файл. Крім того, модуль відповідає за додавання елемента в типізований файл, зміна елемента і його видалення. p align="justify"> Модуль для роботи з одним елементом відповідає за введення даних про один запис, друк одного запису, завантаження записи з типізований файлу, зміна запису і збереження в типізований файл.
Модуль допоміжних процедур відповідає за перевірку коректності імен файлів, виведення на екран інформаційних повідомлень і питань.
Опис модулів
а). Модуль допоміжних процедур
Модуль HelpUtils містить наступні допоміжні процедури:
В· ShowMessage (txt: string) - виведення інформаційного повідомлення;
В· InputQuery (txt: string): Boolean - висновок питання, що припускає позитивну або негативну відповідь;
В· InputFileName (txt: string; var FileName: string; MustExists: boolean): Boolean - введення імені файлу з перевіркою на його існування. p>
б). Модуль для роботи з одним елементом
Модуль UElem відповідає за роботу з одним записом.
Структура запису: = record : string [8];// ім'я файлу
special: string [3];// специфікація
Сreate: TDate;// дата створення: integer;// кількість блоків
end;
Структура запису "Дата створення":
TDate = record , month, year: Integer;
end;
У даному модулі реалізовані наступні процедури і функції:
В· InputDate (var d: TDate) - введення дати створення файлу;
В· InputCatalog (var f: TCatalog) - введення даних про фото;
В· DateToStr (d: TDate): string - переклад дати в рядок;
В· PrintCatalog (f: TCatalog) - друк запису;
В· SaveCatalog (var t: TextFile; f: TCatalog) - збереження запису;
В·