Проект «Исторические даты»

Постановка задачи. Создайте тест для проверки задания исторических дат. Проект является примером использования компонента TRadioGroup.

Реализация. Положите на форму один компонент TRadioGroup, две надписи, один компонент TListBox для хранения вопросов (сделайте его невидимым) и одну кнопку. Результат работы приведен на рис. 45.

Рис. 45. Проект «Исторические даты»

Так как вариантов ответа по три на каждый вопрос, то для простоты скопируем их из файла в массив строк otv. А в массив чисел prav_otv перепишем из файла номера правильных ответов. Код всех обработчиков приведен полностью.

Глобальные данные:

const n = 10; // Общее число вопросов в файле

type mas = array[0..3*n-1] of string;

mas1 = array[0..n-1] of integer;

var otv : mas; // На каждый вопрос три ответа

prav_otv : mas1;

nomer, k : integer;

procedure TForm1.FormCreate(Sender: TObject);

var i:integer; f:textfile;

begin

ListBox1.Items.LoadFromFile('Вопрос.txt');

ListBox1.Visible:=false;

i:=0;

nomer:=0; // Номер вопроса

Label1.Caption:=ListBox1.Items[nomer];

AssignFile(f,'Ответ.txt');

Reset(f);

while not eof(f) and (i<=3*n-1) do

begin

readln(f,otv[i]);

i:=i+1;

end;

CloseFile(f);

i:=0;

AssignFile(f,'Прав_ответы.txt');

Reset(f);

while not eof(f) and (i<=n-1) do

begin

readln(f,prav_otv[i]);

i:=i+1;

end;

CloseFile(f);

// Заполним поля у кнопок для вопроса с номером 0

for i:=0 to 2 do

RadioGroup1.Items[i]:=otv[i];

k:=3;

end;

procedure TForm1.RadioGroup1Click(Sender: TObject);

var i:integer;

begin

case RadioGroup1.ItemIndex of

0: i:=1;

1: i:=2;

2: i:=3;

end;

if i= prav_otv[nomer] then

Label2.Caption:= 'Правильно'

else

Label2.Caption:= 'Неправильно'

end;

procedure TForm1.Button1Click(Sender: TObject);

var i:integer;

begin

Label2.Caption:='';

RadioGroup1.ItemIndex:=-1; // Воостанавливаем кнопки

nomer:=nomer+1; // Следующий вопрос

if nomer=n then

begin

ShowMessage('Вопросы закончились');

Form1.Close;

End

else

begin

for i:=0 to 2 do

begin

RadioGroup1.Items[i]:=otv[k];

k:=k+1;

end;

// Копируем следующий вопрос в надпись Label1

Label1.Caption:=ListBox1.Items[nomer];

end;

end;

Задание 1. Усовершенствуйте проект так, чтобы нельзя было исправлять свой выбор, т. е. на каждый вопрос можно отвечать только один раз.

Задание 2. Дополните проект картинками, иллюстрирующими вопрос.