Фунти-Кілограми

Програма написана таким чином, що кнопка «Розрахувати» активна лише у тому випадку, якщо користувач введе дані для розрахунку.

__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
ComboBox1->Items->Add("Фунти в кілограми");
// Додавання полів до
ComboBox1->Items->Add("Кілограми в фунти");
// випадаючого списку
}
void __fastcall TForm1::Edit1Change(TObject *Sender)
{
if(Edit1->Text!="") Button1->Enabled=true;
// Якщо поле введення заповнене - кнопка активна
else Button1->Enabled=false;
// Якщо поле введення пусте - кнопка неактивна
}
void __fastcall TForm1::Edit1KeyPress(TObject *Sender, char &Key)
{
if((Key>='0')&&(Key<='9'))
// Введення тільки цифр 0-9
return;
if (Key == DecimalSeparator)
{
if ((Edit1->Text).Pos(DecimalSeparator)!= 0)
// Глобальна змінна, що містить символ
Key =0 ;
return;
}
if (Key == VK_BACK)
// Кнопка Backspace
return;
if (Key == 13)

// Кнопка Enter
{
Button1->Click();
return;
}
Key=0;
}
void __fastcall TForm1::Button1Click(TObject *Sender)
// Функція клік по кнопці
{
double funt,kg;
// Оголошення дробових змінних для ваги
if(ComboBox1->ItemIndex == 0)
{
funt = StrToFloat(Edit1->Text);
kg = funt * 0.45359237;
Label2->Caption = FloatToStrF(funt,ffGeneral,5,2)
// Виведення в Label2
+" ф. - це " +
// даних розрахунку
FloatToStrF(kg,ffGeneral,5,2) + " кг";
}
else if (ComboBox1->ItemIndex == 1)
{
kg = StrToFloat(Edit1->Text);
funt = kg / 0.45359237;
Label2->Caption = FloatToStrF(kg,ffGeneral,5,2)
// Виведення в Label2
+" кг - це " +
// даних розрахунку
FloatToStrF(funt,ffGeneral,5,2) + " ф.";
}
else;
// Нічого не відбувається, якщо ви не вибрали дію
}

Фунти-кілограмиЗавантажити