Test

TForm1 *Form1;
//TRadioGroup *rgr1;
//TButton *btn1;
//TMemo *mem1;
class teststruc
{
public:
  AnsiString vopros;
  AnsiString otvet;
  AnsiString variant[5];
  teststruc(){vopros="";otvet="";for(int i=0; i<5; ++i) variant[i]="";}
};
teststruc test[5];
int ItemIndex=-1;
int grade=0,Count=0;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner):TForm(Owner)
{
  test[0].vopros="Как живёшь?"; test[0].otvet="Так себе";
  test[0].variant[0]="Хорошо"; test[0].variant[1]="Плохо"; test[0].variant[2]="Не очень";
  test[0].variant[3]="Так себе"; test[0].variant[4]="Нормально";
  test[1].vopros="Как пишешь?"; test[1].otvet="Плохо";
  test[1].variant[0]="Хорошо"; test[1].variant[1]="Плохо"; test[1].variant[2]="Не очень";
  test[1].variant[3]="Так себе"; test[1].variant[4]="Нормально";
  test[2].vopros="Как читаешь?"; test[2].otvet="Хорошо";
  test[2].variant[0]="Хорошо"; test[2].variant[1]="Плохо"; test[2].variant[2]="Не очень";
  test[2].variant[3]="Так себе"; test[2].variant[4]="Нормально";
  test[3].vopros="Как видишь?"; test[3].otvet="Хорошо";
  test[3].variant[0]="Хорошо"; test[3].variant[1]="Плохо"; test[3].variant[2]="Не очень";
  test[3].variant[3]="Так себе"; test[3].variant[4]="Нормально";
  test[4].vopros="Как учишь?"; test[4].otvet="Не очень";
  test[4].variant[0]="Хорошо"; test[4].variant[1]="Плохо"; test[4].variant[2]="Не очень";
  test[4].variant[3]="Так себе"; test[4].variant[4]="Нормально";
 
  mem1->Clear();
  rgr1->ItemIndex=-1; rgr1->Items->Clear();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::btn1Click(TObject *Sender)
{
  if(ItemIndex>=0)
  {
    if(test[ItemIndex].variant[rgr1->ItemIndex]==test[ItemIndex].otvet) ++Count;
  }
  ++ItemIndex;
  mem1->Clear(); rgr1->ItemIndex=-1; rgr1->Items->Clear();
  if(ItemIndex > 4)
  {
    switch(Count)
    {
      case 1: case 2: grade=2; break;
      case 3: grade=3; break;
      case 4: grade=4; break;
      case 5: grade=5; break;
    }
    Application->MessageBox(AnsiString(grade).c_str(),"ВАША ОЦЕНКА",MB_OK+MB_ICONSTOP+MB_TOPMOST);
    ItemIndex=-1; Count=0; grade=0;
    return;
  }
  mem1->Text=test[ItemIndex].vopros;
  for(int i=0; i < 5; ++i)
    if(test[ItemIndex].variant[i]!="") rgr1->Items->Add(test[ItemIndex].variant[i]);
    else break;
}
//---------------------------------------------------------------------------