Реферат Розробка програми для оцінки через систему тестування знань

;. Min: = StrToInt (copy (Temp_String, i +1, pos (':', Temp_String)-i-1));

// --- Час на 1-н питання (сек) ---

// --- Кількість тестованих питань ---: = StrToInt (copy (Temp_String, pos ('|', Temp_String) +1, ('', Temp_String)-pos (' | ', Temp_String) -1));

// --- Сумарна кількість питань ---: = StrToInt (copy (Temp_String, 1, pos ('|', Temp_String) -1));;

// Додав, можливо потім кількість спроб можна довести до 3

// поки відразу закриття

// спрацьовує onClose, а там ще один пароль - і все, відразу

// кличе викладача, а той робить правильні висновки

{if PrPasswordTestData <>'' then

b1: = (Inputquery ('Введіть пароль', 'Пароль', Password));

if ((b1 = false) and (Password <> PrPasswordTestData)) or

((b1 = true) and (Password <> PrPasswordTestData)) or

((b1 = true) and (Password = PrPasswordTestData)). close;} PrPasswordTestData <>'' then begin.Caption: = 'Отримання доступу до тесту';

PasswordDlg.ShowModal; PasswordDlg.Password.text <> PrPasswordTestData then begin.Password.text: ='';: = true;. close;;. Password.text: ='';;

// TForm1.FormClose (Sender: TObject; var Action: TCloseAction);: string;

{if PrPasswordTestData <>'' thenInputQuery ('Введіть пароль', 'Пароль', Password) = true and (Password = PrPasswordTestData)

///MI_OptionInfoAnsver.Checked: = not MI_OptionInfoAnsver.Checked;: = caFreeAction: = caNone;} (PriznakExit = true) then begin ('Невірно встановлено пароль на доступ до тесту! Програма завершує роботу! ');

Action: = caFree;

end; (PrPasswordTestData <>'') and (PriznakExit = false) then begin.Caption: = 'Закриття програми тестування';

PasswordDlg.ShowModal; PasswordDlg.Password.text = PrPasswordTestData then begin.Password.text: ='';: = caFree endbegin Action: = caNone; PasswordDlg.Password.text: ='';; ;. Password.text: ='';;

// TForm1.MITEndClick (Sender: TObject); PrPasswordTestData <>'' then begin.ShowModal; PasswordDlg.Password.text = PrPasswordTestData then begin (Sender);. Password.text: = ' ';;;. Password.text: ='';. Unit3; Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls, Buttons; = class (TForm): TLabel;: TEdit;: TButton;: TButton;

{Private declarations}

{Public declarations};: TPasswordDlg; Unit1;

{$ R *. dfm}. uEncrypt; Decrypt (const S: AnsiString; Key: Word)...