RadioButton2.Caption := Ini.ReadString('Вопрос №' + inttostr(QuestNum), 'Текст кнопки 2', 'ERROR');
RadioButton3.Caption := Ini.ReadString('Вопрос №' + inttostr(QuestNum), 'Текст кнопки 3', 'ERROR');
RadioButton4.Caption := Ini.ReadString('Вопрос №' + inttostr(QuestNum), 'Текст кнопки 4', 'ERROR');
{Процедура загрузки завершена}
end;
{Процедура созлания формы с вопросами}
procedure TForm2.FormCreate(Sender: TObject);
begin
{Получаем путь папки где находится наша прога}
ProgPath := ExtractFileDir(Application.ExeName) + '\';
Ini := TIniFile.Create(ProgPath + 'Test.ini');
Label1.Caption := Ini.ReadString('Тест', 'Название теста', 'Тест без названия');
QuestNum := 0;
Scores := 0;
wrong := -1;
QuestCount := Ini.ReadInteger('Тест', 'Количество Вопросов ', -2);
Label5.Caption := 'Всего вопросов в тесте: ' + IntToStr(QuestCount);
procedure TForm2.BitBtn1Click(Sender: TObject);
var
Answer, CA: Integer;
Answer := Ini.ReadInteger('Вопрос №' + inttostr(QuestNum), 'Правильный вариант', -1);
if Answer < 0 then Exception.Create('В файле с вопросами не написан правильный вариант');
ca := 0;
if RadioButton1.Checked then
Ca := 1;
if RadioButton2.Checked then
Ca := 2;
if RadioButton3.Checked then
Ca := 3;
if RadioButton4.Checked then
Ca := 4;
if Ca = Answer then
inc(Scores)
else
inc(Wrong);
inc(QuestNum);
Label6.Caption := 'Номер вопроса: ' + IntToStr(QuestNum);
Label8.Caption := 'Правильных ответов: ' + IntToStr(Scores);
Label7.Caption := 'Неправильных ответов: ' + IntToStr(Wrong);
ShowQuestion;
RadioButton1.Checked:=False;
RadioButton2.Checked:=False;
RadioButton3.Checked:=False;
RadioButton4.Checked:=False;
procedure TForm2.Button1Click(Sender: TObject);
Count:=0;
Timer1.Enabled:=True;
Label10.Visible:=True;
TimeLabel.Visible:=True;
BitBtn1.Visible := true;
Panel3.Visible := true;
Button1.Visible := false;
Label9.Visible:=True;
BitBtn1.OnClick(self);
procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
// Ini.Free;
procedure TForm2.Timer1Timer(Sender: TObject);
Count:=Count+1;
TimeLabel.Caption:=ss2nn(Count);
end.
Приложение Б
Модуль формы с результатами тестирования
unit Unit3;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, Gauges, Buttons;
type
TForm3 = class(TForm)
Bevel1: TBevel;
Label1: TLabel;
Label2: TLabel;
Gauge1: TGauge;
Gauge2: TGauge;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
BitBtn1: TBitBtn;
Label6: TLabel;
Label7: TLabel;
Timer1: TTimer;
Label8: TLabel;
TimeLabel: TLabel;
procedure BitBtn1Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
Form3: TForm3;
implementation
uses Unit1, Unit2;
{$R *.dfm}
procedure TForm3.BitBtn1Click(Sender: TObject);
Close;
procedure TForm3.Timer1Timer(Sender: TObject);
if (Gauge1.Progress < 40) then label7.Caption:='2';
if (Gauge1.Progress >= 40 )and (Gauge1.Progress <60) then label7.Caption:='3';
if (Gauge1.Progress >=60) and (Gauge1.Progress <=90)
then label7.Caption:='4';
if Gauge1.Progress >90 then label7.Caption:='5';
end; end.
ПРИЛОЖЕНИЕ В
Вопросы теста и ответы к ним из файла Test.ini.
[Тест]
Количество Вопросов=15
Название теста = Проверка знаний по русскому языку
[Вопрос №1]
Текст вопроса = Вставьте проверяемые безударные гласные А или О. Укажите слово с буквой О.
Текст кнопки 1 = ХВ__ТАТЬ
Текст кнопки 2 = К__РАТЕЛЬНЫЙ
Текст кнопки 3 = НАК__ПИТЬ ДЕНЬГИ
Текст кнопки 4 = НАСЛ__ЖДАТЬСЯ
Правильный вариант = 3
[Вопрос №2]
Текст вопроса = Вставьте проверяемые безударные гласные (E, И, А, Я). Укажите слово с буквой E.
Текст кнопки 1 = Щ_ПАТЬСЯ
Текст кнопки 2 = Ш__ПТАТЬСЯ
Текст кнопки 3 = СТРАШНОЕ ПРИВ__ДЕНИЕ
Текст кнопки 4 = ПР_СКАКАТЬСЯ
Правильный вариант = 2
[Вопрос №3]
Текст вопроса = Вставьте непроверяемые безударные гласные А или О. Укажите слово с буквой О.
Текст кнопки 1 = ДИ__ГОНАЛЬ
Текст кнопки 2 = АМ__РАЛЬНЫЙ
Текст кнопки 3 = УТР__МБОВАТЬ
Текст кнопки 4 = ПОЛ_ГАТЬ
Правильный вариант =2
[Вопрос №4]
Текст вопроса = Вставьте непроверяемые безударные гласные (E, И, Я). Укажите слово с буквой E.
Текст кнопки 1 = МЕЛ__ОРАЦИЯ
Текст кнопки 2 = СТАЖ__РОВКА
Текст кнопки 3 = ДИЛ__ТАНТ
Текст кнопки 4 = СТ__ПЕНДИЯ
[Вопрос №5]
Текст вопроса = Вставьте чередующиеся безударные гласные А или О. Укажите слово с буквой О
Текст кнопки 1 = СОПРИК__СНОВЕНИЕ
Текст кнопки 2 = ИЗЛ__ГАТЬ
Текст кнопки 3 = ПРИК_САТЬСЯ
Текст кнопки 4 = НЕПРИК__САЕМЫЙ
Правильный вариант = 1
[Вопрос №6]
Текст вопроса = Вставьте чередующиеся безударные гласные Е или И.Укажите слово с буквой Е.
Текст кнопки 1 = ОТБЛ__СК
Текст кнопки 2 = ПРИЧ__ТАЮЩИЙСЯ
Текст кнопки 3 = НАЧ__НАЮЩИЙ
Текст кнопки 4 = ПОДЖ__ГАТЬ
[Вопрос №7]
Текст вопроса = Вставьте О или Ё после шипящих. Укажите слово с буквой Ё
Текст кнопки 1 = ИСКАЖ__ННОЕ ИЗОБРАЖЕНИЕ
Текст кнопки 2 = Ш__КОВАЯ ТЕРАПИЯ
Текст кнопки 3 = ПИРОГ С АЛЫЧ__Й
Текст кнопки 4 = РЕЧ__НКА
[Вопрос №8]
Текст вопроса = Вставьте звонкие или глухие согласные. Укажите слово со звонкой согласной (б, в, г, д, ж, з)..
Текст кнопки 1 = _ДАЧА
Текст кнопки 2 = КРОМЕ__НАЯ ТЬМА
Текст кнопки 3 = ПРО__ЬБА О ПОМОЩИ
Текст кнопки 4 = _ДЕСЬ
Правильный вариант = 4
[Вопрос №9]
Текст вопроса = Укажите слово, где нужна непроизносимая согласная.
Текст кнопки 1 = ТРОС__НИКОВЫЙ САХАР
Текст кнопки 2 = БЕЗЫСКУС__НОСТЬ
Текст кнопки 3 = ЖИВОПИС__НЫЙ ВИД
Текст кнопки 4 = ОПАС_НЫЙ
[Вопрос №10]
Текст вопроса = Укажите слово, где не нужно добавить согласную.
Текст кнопки 1 = ГА__ЛЕРЕЯ
Текст кнопки 2 = ВЕТРЕН_ЫЙ ДЕНЬ
Текст кнопки 3 = КО__ТЕДЖ
Текст кнопки 4 = ТО__НЕЛЬ
[Вопрос №11]
Текст вопроса = Укажите слово, где нужен разделительные Ъ.
Текст кнопки 1 = ТРАНС__АТЛАНТИЧЕСКИЙ
Текст кнопки 2 = НЕПОД__ЁМНЫЙ ГРУЗ
Текст кнопки 3 = ОП__ЯНЁННЫЙ
Текст кнопки 4 = ЗАМУЖ_
[Вопрос №12]
Текст вопроса = Укажите в слово, в котором нужен Ь после шипящей.
Текст кнопки 1 = СПЛОШ_
Текст кнопки 2 = СМЕРЧ_
Текст кнопки 3 = С ПЛЕЧ__ ДОЛОЙ
Текст кнопки 4 = УЖ_
[Вопрос №13]
Текст вопроса = Определите написание сложных слов. Укажите слово с дефисным написанием.
Текст кнопки 1 = МИКРО__ХИРУРГИЯ
Текст кнопки 2 = МНОГО__СТОРОННИЙ
Текст кнопки 3 = ЛИТЕРАТУРНО__МУЗЫКАЛЬНЫЙ
Текст кнопки 4 = ЖЕЛЕЗНО_ДОРОЖНЫЙ
[Вопрос №14]
Текст вопроса = Определите написание сложных слов с ПОЛ-. Укажите слово с дефисным написанием.
Текст кнопки 1 = ПОЛ__ЗАРПЛАТЫ
Текст кнопки 2 = ПОЛ__ПОЛЬШИ
Текст кнопки 3 = ПОЛ__ШЕСТОГО
Текст кнопки 4 = ПОЛ_ДОСКИ
[Вопрос №15]
Текст вопроса = Вставьте 3 или С в приставки. Укажите слово с приставкой на -3.
Текст кнопки 1 = И__ЖАРИТЬ
Текст кнопки 2 = __ДУТЬ
Текст кнопки 3 = НИ__ПАДАТЬ
Текст кнопки 4 = БЕ__ПОДОБНО
[1] INI-файлы обычно используются для хранения настроек программы.
Страницы: 1, 2, 3, 4