Здесь мы вначале запускаем процедуру выбора вопроса. Потом проверяем: какой вариант ответа является правильным. Затем считываем вопрос и варианты ответов к нему. Сортируем и отображаем все это на форме.
Обработчик события создания главной формы будет выглядеть следующим образом:
procedure TForm1.FormCreate(Sender: TObject);
begin
Randomize;
//получаем каталог, в котором находится наша программа
dir:= GetCurrentDir;
ss:= dir + '\comp.ini'; //путь к базе вопросов
zz:= ss;
start; //начинаем тест
end;
Теперь создадим обработчик события главной формы OnDestroy (возникает при выходе из программы):
Теперь обрабатываем команды меню. Обработчик события OnClick для пункта Игра→Заново:
procedure TForm1.N1Click(Sender: TObject);
begin
Randomize;
ss:= zz;
start; //начало теста
end;
Поскольку у нас весь основной код вынесен в процедуры, теперь достаточно только вызвать процедуру начала игры.
Обработчик события OnClick для пункта меню Игра→Загрузить базу:
procedure TForm1.N2Click(Sender: TObject);
begin
Randomize;
//начинаем обзор с текущего каталога
Open1.InitialDir:= GetCurrentDir;
if not Open1.Execute then ShowMessage('Вы не выбрали файл!')
else begin
ss:= Open1.FileName; //открываем выбранный файл
zz:= ss; //запоминаем путь к базе
start; //начинаем тест
end;
end;
Здесь мы предлагаем пользователю выбрать через диалоговое окно обзора ini– или любой другой файл, в котором содержатся зашифрованные вопросы и варианты ответов. Когда пользователь выбрал файл, мы запускаем процедуру start и, тем самым, начинаем тест.
Обработчик события OnClick для пункта меню Игра→Выход:
procedure TForm1.N4Click(Sender: TObject);
begin
Halt; //выход из программы
end;
Теперь обработаем щелчок мышью на панели p1:
procedure TForm1.p1Click(Sender: TObject);
begin
Label1.Caption:= 'Второй вопрос:';
verno; //принимаем вариант ответа
p1.Visible:= False; //убираем первую панель
р2.Visible:=True; //активизируем вторую панель
vopr:= Random(4) +1; //выбираем случайный вариант ответа
vars(vopr); //задаем вопрос
end;
Здесь мы вначале изменяем заголовок на "Второй вопрос:", после чего принимаем вариант ответа, выбранный пользователем, вызывая процедуру verno.