R. A. Yusupov C++ Builderda masalalar va topshiriqlar samarqand 2018 yil

else

Button1->Enabled = true;

}

// taxrirlash maydonida faqat musbat yoki manfiy -

// sonni kiritish mumkin

void __fastcall TForm1::Edit1KeyPress(TObject *Sender, System::WideChar &Key)

{

if (( Key >= '0') && (Key <= '9'))

return;

// o'nlik nuqta (vergul)

if ((Key == '.') || (Key == ','))

{

Key = ' , ' ;

if (Edit1->Text.Pos(',') != 0 )

Key = 0;

return;

}

if ( Key == 8)

return;

if ((Key == '-') && (Edit1->Text.Length() == 0))

// "minus" faqat birinchi belgi bo'lishi mumkin

return;

// qolgan belgilar taqiqlanadi

Key = 0;

}

// MonthCalendar komponenta maydonini bosish

void __fastcall TForm1::MonthCalendar1Click(TObject *Sender)

{

Edit1->Text=""; // harorat kiritish maydonini tozalash

Edit1->SetFocus();// haroratni kiritish maydoniga

// kursorni o'rnatish

}

O’rtacha xarorat

Oyning o’rtacha xarorati dasturi (1.20-rasm) matnli fayldan ma’lumotlarni o’qishni namoish etadi. Dastur, Ob-havo dasturi shakllantirgan meteo.txt mazmunini Memo komponent maydoniga chiqaradi, xamda uni qayta ishlab – oyning o’rtacha xaroratini hisoblashni bajaradi.