--- Висновок Стат. інф. про проведення тесту ---
if NomQuestion = PrKolQuestionTestData then.Enabled: = False;. Visible: = False;// Відключення клавіш відповідей. ('Відповідей (загальне у правильних):' + # 13 + # 10
+ IntToStr (NomQuestion) + '' + IntToStr (PrVAnsverOK));// PrStatisticsTest (Sender);. Text: = IntToStr (PrVAnsverOK);. Text: = IntToStr (NomQuestion-PrVAnsverOK) ;. Text: = IntToStr (NomQuestion);;;
// --- Відновлення часу на питання ---
PrTimeLast: = PrTimeTestData;
// Збільшення номера питання на 1
inc (NomQuestion); (Sender);; TForm1.Timer1Timer (Sender: TObject);
// --- Зменшити час на відповідь на 1 секунду ---
Lbl_Last.Caption: = DecTime (PrTimeLast, Sender);; TForm1.MIOpenFileClick (Sender: TObject); (Sender);. InitialDir: = ExtractFilePath (Application.ExeName); OpenDialog1.Execute then_Temp. Lines.LoadFromFile (OpenDialog1.FileName);; TForm1.MIAboutClick (Sender: TObject);
ShowMessage ('Розробник: Хаітов І;' + # 13 + # 10 +
'' + # 13 + # 10 +
'Подяки' + # 13 + # 10 +
'' + # 13 + # 10 +
'* за розробку блоку шифрування і інтерфейсу:' + # 13 + # 10 +
'Ikrom;' + # 13 + # 10 +
'' + # 13 + # 10 +
'* за допомогу в розробці:' + # 13 + # 10 +
'} {ak,' + # 13 + # 10 +
'' + # 13 + # 10 +
'# "justify">' e-mail: ikrom1989_80@mail.ru ');;
// заповнених полів тестаTForm1.PrFillFileds (Sender: TObject);
// Очищення поля 30000);. Lines [0]: = decrypt (Memo_Temp.Lines [3 +6 * (PrOrderQuestion [NomQuestion] -1)], 30000);. Lines [0]: = decrypt (Memo_Temp.Lines [4 +6 * (PrOrderQuestion [NomQuestion] -1)], 30000);. Lines [0]: = decrypt (Memo_Temp.Lines [5 +6 * (PrOrderQuestion [NomQuestion] -1)], 30000);. Lines [0]: = decrypt (Memo_Temp.Lines [6 +6 * (PrOrderQuestion [NomQuestion] -1)], 30000); _NomQuestion.Caption: = decrypt (IntToStr (NomQuestion), 30000);
// Управління смугою прокрутки в полях тесту
if MQuestion.Lines.Count> = 3 then MQuestion.scrollbars: = ssVertical else MQuestion.scrollbars: = ssNone; MV1.Lines.Count> = 3 then MV1.scrollbars: = ssVertical else MV1. scrollbars: = ssNone; MV2.Lines.Count> = 3 then MV2.scrollbars: = ssVertical else MV2.scrollbars: = ssNone; MV3.Lines.Count> = 3 then MV3.scrollbars: = ssVertical else MV3.scrollbars: = ssNone ; MV4.Lines.Count> = 3 then MV4.scrollbars: = ssVertical else MV4.scrollbars: = ssNone;;
