"> {Public declarations}
end;
Form4: TForm4;
I, kol, j: integer;
{$ R * .dfm}
TForm4.FormShow (Sender: TObject); AppPath: array [0..255] of char;
test: AnsiString; (255, AppPath);// визначаємо директорію, де розташований виконуваний файл:=AppPath + Доп. Матеріали test.rtf raquo ;;. Lines.LoadFromFile ( C: Program Files Електронний підручник Доп. Матеріали test.rtf );// текст завантажується в компонент RichEdit1
except//у випадку, якщо файл не знайдений, робота програми завершується
showmessage ( Файл не знайдено! );
Application.Terminate;
end;
BitBtn1.Enabled:=false;//Кнопка Далі не доступна, поки не буде зроблений вибір
memo1.Lines.Strings [0]:=Richedit1.Lines.Strings [j + 0];// в компонент Memo заноситься перший рядок - питання.
radiogroup1.Items [0]:=richedit1.Lines.Strings [j + 1];// заповнюємо варіанти відповідей
radiogroup1.Items [1]:=richedit1.Lines.Strings [j + 2];
radiogroup1.Items [2]:=richedit1.Lines.Strings [j + 3];
radiogroup1.Items [3]:=richedit1.Lines.Strings [j + 4];
radiogroup1.Items [4]: ??= richedit1.Lines.Strings [j + 5];
try
i:=StrToInt (richedit1.Lines.Strings [j + 6]);// змінна и містить номер пра-вильного відповіді
except//якщо не вказано номер правильної відповіді, робота програми переривається
showmessage ( Невірний формат тесту! );
Application.Terminate;
end;:=j + 8 ;;
TForm4.BitBtn1Click (Sender: TObject);
if i=radiogroup1.ItemIndex + 1 then//якщо дан правильну відповідь
begin
label1.Font.Color:=clGreen;// колір шрифту Label1 - зелений
label1.Caption:= Відповідь правильна! raquo ;;
kol:=kol + 1;// лічильник кількості правильних відповідей
end else if radiogroup1.ItemIndex lt; gt;- 1 then
begin
label1.Font.Color:=clRed;
label1.Caption:= Відповідь не правильний! raquo ;;
end;
memo1.Lines.Clear;// очищаємо компонент Memo
if Richedit1.Lines.Strings [j + 0]= Кінець тесту
then begin
memo1.Lines.Strings [0]:= Тест закінчений raquo ;;
memo1.Lines.Add ( Кількість правильних відповідей - + IntToStr (kol));
radiogroup1.Items [0]:= raquo ;;
radiogroup1.Items [1]:= raquo ;;
radiogroup1.Items [2]:= raquo ;;
radiogroup1.Items [3]:= raquo ;;
radiogroup1.Items [4]: ??= raquo ;;
radiogroup1.Visible:=false;
Label1.Visible:=False;
end
else//інакше, якщо кінець тесту ще не досягнутий
begin
memo1.Lines.Strings [0]:=richedit1.Lines.Strings [j + 0];
radiogroup1.Items [0]:=richedit1.Lines.Strings [j + 1];
radiogroup1.Items [1]:=richedit1.Lines.Strings [j + 2];
radiogroup1.Items [2]:=richedit1.Lines.Strings [j + 3];
radiogroup1.Items [3]:=richedit1.Lines.Strings [j + 4];
radiogroup1.Items [4]: ??= richedit1.Lines.Strings [j + 5];
try
i:=StrToInt (richedit1.Lines.Strings [j + 6]);
except
showmessage ( Невірний формат тесту! );
Application.Terminate;
end;
j:=j + 8;
radiogroup1.ItemIndex:=- 1;
end;
BitBtn1.Enabled:=false ;;
procedure TForm4.RadioGroup1Click (Sender: TObject);
BitBtn1.Enabled:=true;// якщо вибір зроблений, то кнопка доступна.
end;
TForm4.FormCanResize (Sender: TObject; var NewWidth,
NewHeight: Integer; var Resize: Boolean);
Resize:=False;// не можна змінювати розмір форми
