Создание Тест проекта

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, inifiles, StdCtrls, ExtCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Memo1: TMemo;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
    Label2: TLabel;
    Button4: TButton;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Timer1: TTimer;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    Label1: TLabel;
    Button3: TButton;
    RadioButton5: TRadioButton;
    RadioButton6: TRadioButton;
    RadioButton7: TRadioButton;
    RadioButton8: TRadioButton;
    Label7: TLabel;
    GroupBox3: TGroupBox;
    Label8: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
     procedure LoadingData();
     procedure Vop1();
     procedure Vop2();
     procedure Vop3();
     procedure Vop4();
     procedure Vop5();
 
 
 
  end;
 
var
  Form1: TForm1;
 
  ini : TIniFile;
  triger1, triger2, triger3, triger4, GlavTriger: integer;
 
 
  implementation
 
{$R *.dfm}
 
 
procedure TForm1.Button1Click(Sender: TObject);
  {Это в проге не используется! Создаём ини файл с нужными нам строками}
 
  begin
ini := TInifile.Create(ExtractFilePath(Application.ExeName)+'my.ini');
ini.WriteString('Vopros', 'Vop', 'Вопрос 1');
ini.WriteString('Otvet1', 'Var1', 'Вариант 1');
ini.WriteBool('Flag1', 'V1', false);
ini.WriteString('Otvet2', 'Var2', 'Вариант 2');
ini.WriteBool('Flag2', 'V2', false);
ini.WriteString('Otvet3', 'Var3', 'Вариант 3');
ini.WriteBool('Flag3', 'V3', false);
ini.WriteString('Otvet4', 'Var4', 'Вариант 4');
ini.WriteBool('Flag4', 'V4', false);
ini.WriteInteger('Tag', 'SH', 0);
 
ini.Free;
 
end;
 
 
 
 
 
 
{Считываем в мемо строки из текущего INI файла}
procedure TForm1.Button2Click(Sender: TObject);
 
  begin
 
 
Memo1.Lines.Strings[0]:=ini.ReadString('Vopros', 'Vop', 'Вопрос 1');
Memo1.Lines.Strings[2]:=ini.ReadString('Otvet1', 'Var1', 'Вариант 1');
Memo1.Lines.Strings[4]:=ini.ReadString('Otvet2', 'Var2', 'Вариант 2');
Memo1.Lines.Strings[6]:=ini.ReadString('Otvet3', 'Var3', 'Вариант 3');
Memo1.Lines.Strings[8]:=ini.ReadString('Otvet4', 'Var4', 'Вариант 4');
button3.Enabled:=true; //затеняем кнопку -запись ответов
Memo1.Enabled:=true;  // выходим из тени
RadioButton5.Enabled:=true;
RadioButton6.Enabled:=true;    // выходим из тени
RadioButton7.Enabled:=true;
RadioButton8.Enabled:=true;
 
end;
 
 
{Кнопка обработки условий, проверки и вывода результата}
 
procedure TForm1.Button4Click(Sender: TObject);
 
begin
 
{Если радиокнопка 1 под флагом  true, а также булевое значение
 в строке V1 Ini файла = false, то выводим сообщение о неверном ответе
 а, так же обнуляем значение triger1}
if (RadioButton1.Checked=true) and
   (ini.ReadBool('Flag1', 'V1', false))=false  then begin
Label2.Caption:='Неправильный ответ';
triger1:=0;   end;
      {противоположность первому}
if (RadioButton1.Checked=true) and
(ini.ReadBool('Flag1', 'V1', true)) then  begin
Label2.Caption:='правильный ответ';
triger1:=1;  end;
 
 
 
 
if (RadioButton2.Checked=true) and
(ini.ReadBool('Flag2', 'V2', false))=false then  begin
Label3.Caption:='Неправильный ответ';
triger2:=0;  end;
 
if (RadioButton2.Checked=true) and
(ini.ReadBool('Flag2', 'V2', true)) then  begin
Label3.Caption:='правильный ответ';
triger2:=1; end;
 
 
 
 
if (RadioButton3.Checked=true) and
(ini.ReadBool('Flag3', 'V3', false))=false then  begin
Label4.Caption:='Неправильный ответ';
triger3:=0;  end;
 
if (RadioButton3.Checked=true) and
(ini.ReadBool('Flag3', 'V3', true)) then   begin
Label4.Caption:='правильный ответ';
triger3:=1;  end;
 
 
 
 
if (RadioButton4.Checked=true) and
(ini.ReadBool('Flag4', 'V4', false))=false then  begin
Label5.Caption:='Неправильный ответ';
triger4:=0; end;
 
if (RadioButton4.Checked=true) and
(ini.ReadBool('Flag4', 'V4', true)) then   begin
Label5.Caption:='правильный ответ';
triger4:=1; end;
 
 
 
 
 
   
   {Если какая то из переменных triger1....triger4 имеет
   состояние (1), то выводим сообщение о правильном ответе
   а также прибавляем +1 к переменной GlavTriger, и
   запускаем таймер для сброса сообщения через 4 секунды,
   а также применяем визуальные цветовые эфекты}
 
if (triger1=1) and (triger2=0) and
   (triger3=0)and (triger4=0) then  begin
    Label6.Caption:='Это правильный ответ';
    Label6.Color:=clGreen;
    Label6.Font.Color:=clYellow;
    GlavTriger:=GlavTriger+1; Timer1.Enabled:=true; end;
 
 
if (triger2=1) and (triger1=0) and
   (triger3=0)and (triger4=0) then begin
    Label6.Caption:='Это правильный ответ';
     Label6.Color:=clGreen;
     Label6.Font.Color:=clYellow;
    GlavTriger:=GlavTriger+1; Timer1.Enabled:=true; end;
 
 
if (triger3=1) and (triger2=0) and
   (triger4=0)and (triger1=0) then  begin
    Label6.Caption:='Это правильный ответ';
    Label6.Color:=clGreen;
    Label6.Font.Color:=clYellow;
    GlavTriger:=GlavTriger+1;  Timer1.Enabled:=true; end;
 
 
 
if (triger4=1) and (triger2=0) and
   (triger3=0)and (triger1=0) then  begin
    Label6.Caption:='Это правильный ответ';
      Label6.Color:=clGreen;
      Label6.Font.Color:=clYellow;
     GlavTriger:=GlavTriger+1; Timer1.Enabled:=true;  end;
 
 
if (triger4=0) and (triger2=0) and
   (triger3=0)and (triger1=0) then begin
    Label6.Caption:='Это неправильный ответ';
    Label6.Color:=clRed;
     Label6.Font.Color:=clYellow;
    GlavTriger:=GlavTriger; Timer1.Enabled:=true;
 
     end;
 
 
 
{Если GlavTriger - переменная приняла состояние =(1) при 
значении =(1) любой из четырёх переменных triger1....triger4
то инициализируем переменную ini для следующего ini файла
загружаем в неё данные из файла, и обнуляем  triger1....triger4}
 
if GlavTriger=1 then begin Vop2; LoadingData;
  triger1:=0; triger2:=0; triger3:=0; triger4:=0; end;
 
 
if GlavTriger=2 then begin Vop3; LoadingData;
triger1:=0; triger2:=0; triger3:=0; triger4:=0; end;
 
if GlavTriger=3 then begin Vop4; LoadingData;
triger1:=0; triger2:=0; triger3:=0; triger4:=0; end;
 
if GlavTriger=4 then begin Vop5; LoadingData;
triger1:=0; triger2:=0; triger3:=0; triger4:=0; end;
 
if GlavTriger=5 then begin Vop1; LoadingData;
triger1:=0; triger2:=0; triger3:=0; triger4:=0;
  GlavTriger:=0; {В конце пятого вопроса обнуляем GlavTriger
  и его входы triger1....triger4, а так же инициализируем
  переменную ini для первого ini файла - начинаем заново по кругу}
 
  end;
   end;
 
 
  {здесь всё, что должно загружаться при открытии формы}
procedure TForm1.FormCreate(Sender: TObject);
begin
Vop1; //процедура инициализации переменной ini под конкретный файл
LoadingData(); //процедура загрузки данных из переменной ini
GlavTriger:=0; //выходная переменная результата triger1....triger4
Label6.Caption:='Отвечайте на вопрос!';  //вывод информации по результату GlavTriger
end;
 
 
 
{Процедура загрузки строк из переменой ini файла и обнуление флагов}
procedure TForm1.LoadingData;
begin
Label1.Caption:= ini.ReadString('Vopros', 'Vop', 'Вопрос 1');
RadioButton1.Caption:= ini.ReadString('Otvet1', 'Var1', 'Вариант 1');
RadioButton2.Caption:= ini.ReadString('Otvet2', 'Var2', 'Вариант 2');
RadioButton3.Caption:= ini.ReadString('Otvet3', 'Var3', 'Вариант 3');
RadioButton4.Caption:= ini.ReadString('Otvet4', 'Var4', 'Вариант 4');
 
RadioButton1.Checked:=false; RadioButton2.Checked:=false;
RadioButton3.Checked:=false; RadioButton4.Checked:=false;
 
end;
 
{Тут все процедуры инициализации переменной ini -перебор файлов}
procedure TForm1.Vop1;
begin
ini := TInifile.Create(ExtractFilePath(Application.ExeName)+'my.ini');
end;
 
procedure TForm1.Vop2;
begin
ini := TInifile.Create(ExtractFilePath(Application.ExeName)+'my2.ini');
end;
 
procedure TForm1.Vop3;
begin
ini := TInifile.Create(ExtractFilePath(Application.ExeName)+'my3.ini');
end;
 
procedure TForm1.Vop4;
begin
ini := TInifile.Create(ExtractFilePath(Application.ExeName)+'my4.ini');
end;
 
procedure TForm1.Vop5;
begin
ini := TInifile.Create(ExtractFilePath(Application.ExeName)+'my5.ini');
end;
 
 
{Этот Таймер обеспечивает сброс сообщения о результате через 4 секунды}
 {а так же сброс по цвету}
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Timer1.Tag:=Timer1.Tag+1;
if Timer1.Tag=4 then begin Timer1.Tag:=0; Timer1.Enabled:=false;
label6.Caption:='Отвечайте на вопрос!';
label6.Color:=clBtnFace;
label6.Font.Color:=clBlack;
end;
   end;
 
 
{Тут собственно редактор вопросов и ответов}
procedure TForm1.Button3Click(Sender: TObject);
begin
 
{Сохраняем строки с мемо в текущий INI файл}
ini.WriteString('Vopros', 'Vop', Memo1.Lines.Strings[0]);
ini.WriteString('Otvet1', 'Var1', Memo1.Lines.Strings[2]);
ini.WriteString('Otvet2', 'Var2', Memo1.Lines.Strings[4]);
ini.WriteString('Otvet3', 'Var3', Memo1.Lines.Strings[6]);
ini.WriteString('Otvet4', 'Var4', Memo1.Lines.Strings[8]);
 
{если нужно, то Ставим флаги напротив нужных ответов}
if (RadioButton5.Checked=true) then ini.WriteBool('Flag1', 'V1', true);
if (RadioButton6.Checked=true) then ini.WriteBool('Flag2', 'V2', true);
if (RadioButton7.Checked=true) then ini.WriteBool('Flag3', 'V3', true);
if (RadioButton8.Checked=true) then ini.WriteBool('Flag4', 'V4', true);
 
button3.Enabled:=false; //затеняем кнопку сразу, как сохранили
Memo1.Enabled:=false;  //затеняем сразу, что-бы не сохранить в..
 
RadioButton5.Enabled:=false;
RadioButton6.Enabled:=false;   //затеняем радиобатоны на всякий
RadioButton7.Enabled:=false;
RadioButton8.Enabled:=false;
 
 
end;
 
    end.