дено в таблиці 19, а опис основних методів - у таблиці 20.
Таблиця 19 - Основні поля класу TCon
ПоляНазначеніеFQuestions: TQuestionsArray; Масив питань. FQuestionsCount: Integer; Кількість питань у масиві FQuestions. FCurQuestionNum: Integer; Номер поточного питання. FTestName: String; Назва тесту. FTypeACount: Integer; Кількість генеруються питань типу А. FTypeBCount: Integer; Кількість генеруються питань типу В. FTypeCCount: Integer; Кількість генеруються питань типу С. FModified: Boolean; Прапор модифікації. FFileName: String; Ім'я поточного файлу (включаючи шлях). FTempDir: String; Тимчасова директорія; Таблиця 20 - Основні методи класу TCon
МетодНазначеніеprocedure New; Метод створення нового тесту. procedure SaveAs (FileName: String); Метод, який зберігає всі файли документа в зазначену папку (ця папка - шлях до файлу FileName), він робить цю папку як справжньої, а тимчасова папка не змінюється. procedure Save; Метод, який зберігає всі файли в справжню папку, робота триває з тимчасовою папкою. function Load (FileName: String): Boolean; Метод, що завантажує дані з файлу тесту. FileName - ім'я тестового файлу. function Open (FileName: String): Boolean; Метод, що завантажує дані та продукує копіювання всіх файлів в тимчасову папку. FileName - ім'я відкривається тестового файлу. function GoBack: Boolean; Метод переходу назад по списку питань, повертає істину, якщо перехід відбувся. function GoNext (CanCreate: Boolean): Boolean; Метод переходу до наступного питання, якщо CanCreate = True, то якщо наступного питання немає, то він створюється. Повертає істину, якщо перехід відбувся. function GoFirst: Boolean; Метод переходу до першого питання, повертає істину, якщо перехід відбувся. function GoLast: Boolean; Метод переходу до останнього питання, повертає істину, якщо перехід відбувся. function GoToQuestion (Num: Integer): Boolean; Метод переходу до зазначеного питання з номером Num, повертає істину, якщо перехід відбувся. function GetCurQuestion: TQuestion; Метод, який повертає дані поточного питання. procedure UpdateCurQuestion (Question: TQuestion); Метод, відновлювальний дані поточного питання. Question - нові дані для поточного питання. procedure DeleteQuest (Num: Integer); Метод, що видаляє питання з вказаним номером Num. procedure InsertEmptyQuest (Pos: Integer); Метод, вставляють порожній питання в задану позицію Pos. procedure AppendEmptyQuest; Метод, який додає в кінець порожній питання. function IsReadyForTesting: Boolean; Метод-функція, повертає істину, коли тест готовий до використання. procedure MakeReport (var Str: TMemo); Метод, що становить звіт про готовність, повертає TMemo Str зі звітом. p align="justify"> Алгоритм роботи з класом TCon:
Створюється примірник класу (наприклад, в обробнику події створення головної форми додатка).
2 <...
