Код компилируется, но не знаю как отладить, ошибки при работе получаются.
Код:
TForm1 *Form1;
int pw;
int rem = 60;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
TSearchRec sr;
if (FindFirst ("*.mid",faAnyFile,sr) == 0)
{
MediaPlayer1->FileName = sr.Name;
MediaPlayer1->Open();
MediaPlayer1->Play();
}
Randomize();
pw = Random(899)+100;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::isRight(void)
{
if (StrToInt(Edit1->Text) == pw)
{
Timer1->Enabled = false;
Button1->Enabled = false;
Edit1->Enabled = false;
MediaPlayer1->Stop();
ShowMessage ("Поздравляю! \nВы угадали число за " + IntToStr (60 - rem) + "сек");
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Edit1KeyPress(TObject *Sender, System::WideChar &Key)
{
if ((Edit1->Text.Length()< 3) && ((Key >='0') && (Key <='9')) || Key == VK_BACK)
{
return;
}
if (Key == VK_RETURN)
{
isRight();
return;
}
Key = 0;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Edit1Change(TObject *Sender)
{
if (Edit1->Text.Length() == 3)
{
Button1->Enabled = true;
}
else
{
Button1->Enabled = false;
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
isRight();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
rem--;
Label4->Caption = IntToStr(rem);
if (rem == 0)
{
Timer1->Enabled = false;
Edit1->Enabled = false;
MediaPlayer1->Stop();
ShowMessage ("К сожалению, Вы не справились с "
"поставленной задачей\n"
"\"Секретное\" число -" + IntToStr(pw) );
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
Timer1->Enabled = false;
MediaPlayer1->Stop();
MediaPlayer1->Close();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::MediaPlayer1Notify(TObject *Sender)
{
if (Timer1->Enabled)
{
MediaPlayer1->Play();
}
}
//---------------------------------------------------------------------------
Может кто-то подскажет, что не так...