тання, якщо не закінчено тестування. Повертає істину, якщо поточне питання отримати вдалося. function Next: Boolean; Функція-метод переходу до наступного питання, якщо перехід був здійснений (наступне питання існує), то повертає істину, інакше брехня. function Back: Boolean; Функція-метод переходу до попереднього питання, якщо перехід був здійснений (попереднє питання існує), то повертає істину, інакше брехня. function ExistsSkiped: Boolean; Функція-метод, що визначає, чи були пропущені в ході тестування користувачем запитання. procedure Answer (Answ: Integer); Метод, який відповідає на поточне питання, зберігає відповідь у FUserAnswers. Answ - номер варіанта відповіді (1-4). function CalcResult: Integer; Функція-метод, що видає результат тестування за п'ятибальною шкалою. p align="justify"> Таблиця 15 - Основні поля класу TJournal
ПоляНазначеніеFUsersCount: Integer; Кількість записів про користувачів (елементів масиву FUsers). FGroupsCount: Integer; Кількість записів про групи (елементів масиву FGroups). FTestNamesCount: Integer; Кількість назв тестів (елементів масиву FTestNames). FCurUsersCount: Integer; Кількість поточних користувачів (елементів масиву FCurUsersCount). FUsers: TUsersArray; Масив відомостей про всіх користувачів. FGroups: TStringArray; Масив назв груп. FTestNames: TStringArray; Масив назв тестів. FCurUsers: TUsersArray; Масив відомостей про поточні користувачах (тих, які, відображаються в таблиці журналу). p align="justify"> Таблиця 16 - Основні методи класу TJournal
МетодНазначеніеfunction Load: Boolean; Метод, який здійснює завантаження вмісту файлу журналу в екземпляр класу. Повертає True у разі успішного читання, False у противному випадку. procedure Save; Метод, який зберігає структури даних екземпляра класу в файл журналу. function GetTestID (S: String): Integer; Функція-метод, що повертає на ім'я тесту його індекс (номер елемента в масиві TestNames, рівного S). У разі відсутності такого повертає - 1. function GetGroupID (S: String): Integer; Функція-метод, що повертає по імені групи її індекс (номер елемента в масиві FGroups, рівного S). У разі відсутності такого повертає - 1. procedure AddGroup (Group: String); Метод додавання групи з ім'ям Group в список груп (масив FGroups) з урахуванням дотримання унікальності. function FindGroup (Group: String): Integer; Метод пошуку групи з ім'ям Group в список груп (масив FGroups). Повертає номер елемента масиву, рівного Group або - 1 у разі його відсутності. procedure DelGroup (Num: Integer); Метод, що видаляє групу з індексом Num (індекс в масиві FGroups) з усіма записами користувачів, що належать їй зі списку всіх користувачів FUsers та зі списку поточних користувачів FCurUsers, якщо ця група була поточної. procedure EditGroup (Num: Integer; NewGroup: String); Метод, що привласнює значення NewGroup імені групи з індексним номером Num. function ExistsGroup (Group: String): Boolean; Мет...
