Вгадай число

Програма демонструє використання компонента StatusBar

Код написання програми

int pw, rem = 30, p = 0;
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
        Randomize();					//Створення числа
        pw = rand()%99;					//від 0 до 99
}
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
        rem--;
        StatusBar1->Panels->Items[2]->Text = " Залишилося: " + 	//Виведення в StatusBar
        IntToStr(rem) + " секунд";			//даних таймера
        if (rem == 0 )
        {
             Timer1->Enabled = false;		//Зупинення таймера	
             Edit1->Enabled = false;			//Поле введення неактивне
             Application->Title = "Програв...";	//Зміна назви вікна ShowMessage
             ShowMessage("На жаль, ви не впоралися з поставленно задачею. Секретне число:" + IntToStr(pw) );
        }
}

void __fastcall TForm1::Edit1KeyPress(TObject *Sender, char &Key)
{
        if ( ( Edit1->Text.Length() < 2) && ( ( Key >= '0') && ( Key <= '9') ) )
        return;
        if (( Key == VK_RETURN) && (Edit1->Text.Length() < 3))
        {
             if ( StrToInt(Edit1->Text) == pw )
             {
               Timer1->Enabled = false;		//Зупинення таймера	
               Edit1->Enabled = false;		//Поле введення неактивне
               Application->Title = "Перемога!"; //Зміна назви вікна ShowMessage
               ShowMessage("Вітаю мій друже, ти вгадав число за " + IntToStr(rem)+ " сек");
             }
              else
             {
             p++;			//	Виведення в StatusBar
             StatusBar1->Panels->Items[1]->Text ="Спроб: " //кількості спроб
+ IntToStr(p);
             }
            return;
        }
        if ( Key == VK_BACK)
        return;
        Key = 0;
}
void __fastcall TForm1::Edit1Change(TObject *Sender)
{
        StatusBar1->Panels->Items[0]->Text =" Символів: " + //Виведення в StatusBar
        IntToStr(Edit1->Text.Length());			//кількості символів
}

Вгадай числоЗавантажити