">// Пункт з меню "Почати тестування"
procedure TForm1.MITBeginClick (Sender: TObject);, i, j: byte;
// Перевірка чи був відкритий файл з тестом
if Memo_Temp.Lines.Count <4 then ('Відкрийте файл тесту');;
end;
// --- Дізнаємося дані про тест (кол. питань і т.д.) ---
PrGetDataTest (Sender);: = PrTimeTestData;. Min: = PrKolQuestionTestData * PrTimeTestData.Min
+ PrKolQuestionTestData * PrTimeTestData.Sec div 60;. Sec: = PrKolQuestionTestData * PrTimeTestData.Sec mod 60;
// --- Очищення довільного порядку питання ---
for i: = 1 to 255 do
PrOrderQuestion [i]: = 0;
tempNomQuestion: = 0;
// --- Вибір питань у випадковому порядку ---
while tempNomQuestion
// Заповнення полів
// ------ _OptionInfoAnsver.Enabled: = True;;
// Натискання кнопки з варіантом відповіді
procedure TForm1.PrClickButton (Sender: TObject);
// --- Перевірка на правильну відповідь на ворос ---
if StrToInt (decrypt (Memo_Temp.Lines [7 +6 * (PrOrderQuestion [NomQuestion] -1)], 30000)) = (Sender as TButton). Tag ThenMI_OptionInfoAnsver.Checked then ShowMessage ('Правильно '); (PrVAnsverOK); if MI_OptionInfoAnsver.Checked then ShowMessage (' Неправильно '); (Sender);; TForm1.MIExitClick (Sender: TObject);;; TForm1.MI_OptionInfoAnsverClick (Sender: TObject);: string; PrPasswordTestData <> ;'' then begin.ShowModal; PasswordDlg.Password.text = PrPasswordTestData then begin_OptionInfoAnsver.Checked: = not MI_OptionInfoAnsver.Checked;. Password.text: ='';;;. Password.text: ='';
// --- процедура возращает дані з тіста ---
procedure TForm1.PrGetDataTest (Sender: TObject); _String: string;: boolean;: string;, b2: boolean;, j: byte; _String: = decrypt (Memo_Temp.Lines [1], 30000);
///ShowMessage (Temp_String);
// --- Пароль --- i: = 1 to length (Temp_String) do ((Temp_String [i] = '') and not EndFor) thenj: = i +1 to length ( Temp_String) do ((Temp_String [j] = '') and not EndFor) theni +1 = j then: ='': = copy (Temp_String, i +1, ji-1);: = true;
end;
end;
// --- Час на 1-н питання (хв) ---
i: = pos (':', Temp_String); Temp_String [i] <> '' do (i);...
