pan align="justify"> LoadCatalog (var t: TextFile; var f: TCatalog): Boolean - завантаження запису;
В· TryStrToDate (s: string; var d: TDate): Boolean - переклад рядка в формат дати;
В· EditCatalog (var f: TCatalog) - зміна інформації в записі.
в). Модуль для роботи з файлами
Модуль UFile відповідає за роботу з текстовими і типізований файлами.
Опис типізований файлу: = file of TCatalog;// файлова змінна, що містить відомості про файли
У даному модулі реалізовані наступні процедури і функції:
В· NewFile (var f: TFile; var FileName: string) - створення нового файлу;
В· OpenFile (var f: TFile; var FileName: string) - відкриття файлу;
В· LoadFromText (var f: TFile; var FileName: string) - завантаження з текстового файлу в типізований;
В· PrintFile (var f: TFile) - друк вмісту файлу;
В· SaveToText (var f: TFile; FileName: string) - збереження вмісту типізований файлу в текстовий;
В· AddElems (var f: TFile) - додавання елемента в файл;
В· EditElems (var f: TFile) - зміна елемента в файлі;
В· DeleteElems (var f: TFile) - видалення елемента з файлу;
В· Task (var f: TFile) - створення файлу із записами, у яких специфікація збігається із заданою.
7. План тестування
Тест 1. Тест функції "Створити файл".
Мета. Перевірка коректної роботи функції створення при роботі з типізованим файлом.
Порядок проведення. У меню програми вибрати пункт "1 - Створити файл". Після запиту програми ввести ім'я нового файлу. Якщо на диску вже існує файл з заданим ім'ям, буде виведено інформаційне повідомлення з пропозицією замінити існуючий файл. При позитивному відповіді користувача існуючий файл буде видалений з диска, і створений новий. Якщо на диску не існувало файлу з заданим ім'ям, то він буде створений.
Результат. На диску повинен бути створений типізований файл із заданим ім'ям. У вікні програми повинно бути виведено повідомлення про успішне створення. <...