Тренажер по программированию

#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
 
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1 (TComponent* Owner) : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate (TObject *Sender)
{
QuestIndex = 0;
 
QuestionList[0][0] = "У попа жила ...";
QuestionList[0][1] = "блоха";
QuestionList[0][2] = "коза";
QuestionList[0][3] = "собака";
RightAnswerList[0] = 3;
 
QuestionList[1][0] = "Он ее ...";
QuestionList[1][1] = "крестил";
QuestionList[1][2] = "любил";
QuestionList[1][3] = "поил";
RightAnswerList[1] = 2;
 
QuestionList[2][0] = "Она съела ...";
QuestionList[2][1] = "кусок мяса";
QuestionList[2][2] = "кусок масла";
QuestionList[2][3] = "кусок рыбы";
RightAnswerList[2] = 1;
 
QuestionList[3][0] = "Он ее ...";
QuestionList[3][1] = "простил";
QuestionList[3][2] = "убил";
QuestionList[3][3] = "покрасил";
RightAnswerList[3] = 2;
 
QuestionList[4][0] = "В землю ...";
QuestionList[4][1] = "посадил";
QuestionList[4][2] = "положил";
QuestionList[4][3] = "закопал";
RightAnswerList[4] = 3;
 
QuestionList[5][0] = "И надпись ... что";
QuestionList[5][1] = "написал";
QuestionList[5][2] = "наклеил";
QuestionList[5][3] = "выбил";
RightAnswerList[5] = 1;
 
SetNewQuestion();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::SetNewQuestion (void)
{
Memo1->Lines->Text = QuestionList[QuestIndex][0];
Panel1->Caption = QuestionList[QuestIndex][1];
Panel2->Caption = QuestionList[QuestIndex][2];
Panel3->Caption = QuestionList[QuestIndex][3];
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Panel1Click (TObject *Sender)
{
int RightAnswer = RightAnswerList[QuestIndex];
Panel1->Color = (RightAnswer == 1) ? clGreen : clRed;
 
Panel1->OnClick = NULL;
Panel2->OnClick = NULL;
Panel3->OnClick = NULL;
 
Button1->Enabled = true;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Panel2Click (TObject *Sender)
{
int RightAnswer = RightAnswerList[QuestIndex];
Panel2->Color = (RightAnswer == 2) ? clGreen : clRed;
 
Panel1->OnClick = NULL;
Panel2->OnClick = NULL;
Panel3->OnClick = NULL;
 
Button1->Enabled = true;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Panel3Click (TObject *Sender)
{
int RightAnswer = RightAnswerList[QuestIndex];
Panel3->Color = (RightAnswer == 3) ? clGreen : clRed;
 
Panel1->OnClick = NULL;
Panel2->OnClick = NULL;
Panel3->OnClick = NULL;
 
Button1->Enabled = 0;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click (TObject *Sender)
{
if (++QuestIndex > 5) QuestIndex = 0;
SetNewQuestion();
 
Panel1->Color = clBtnFace;
Panel2->Color = clBtnFace;
Panel3->Color = clBtnFace;
 
Panel1->OnClick = Panel1Click;
Panel2->OnClick = Panel2Click;
Panel3->OnClick = Panel3Click;
 
Button1->Enabled = false;
}
//---------------------------------------------------------------------------

#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ExtCtrls.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:    // IDE-managed Components
        TPanel *Panel1;
        TPanel *Panel2;
        TPanel *Panel3;
        TButton *Button1;
        TMemo *Memo1;
        void __fastcall FormCreate(TObject *Sender);
        void __fastcall Panel1Click(TObject *Sender);
        void __fastcall Panel2Click(TObject *Sender);
        void __fastcall Panel3Click(TObject *Sender);
        void __fastcall Button1Click(TObject *Sender);
private:    // User declarations
public:     // User declarations
        int QuestIndex;
        AnsiString QuestionList[6][4];
        int RightAnswerList[6];
        void __fastcall SetNewQuestion (void);
 
        __fastcall TForm1 (TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif