C++ ЕНФ (3семестр) / LABA_1 / 1.1.1.1 / Unit1

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
#include "Unit2.cpp"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TEnergy *Energy;
//---------------------------------------------------------------------------
__fastcall TEnergy::TEnergy(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TEnergy::AboutClick(TObject *Sender)
{
 Help=new THelp(this);
 Help->ShowModal();//Shows a form as a modal dialog.
 Help->Free();//Destroys an object and frees its associated memory.
 //Help->Visible =true;
}
//---------------------------------------------------------------------------


void __fastcall TEnergy::calculateClick(TObject *Sender)
{
  if(Edit1->Text=="")
        ShowMessage("Не ввели значение");

  if((Ishodnik->ItemIndex)==0)//iz Dj
    {
        if((Result->ItemIndex)==0)//v Dj
                Label1->Caption = Edit1->Text;
        if((Result->ItemIndex)==1)//v Kall
                Label1->Caption = FloatToStr((StrToFloat(Edit1->Text))/4.19);
        if((Result->ItemIndex)==2)//v Erg
                Label1->Caption =FloatToStr((StrToFloat(Edit1->Text))*10000000);
    }
    else
       {
        if((Ishodnik->ItemIndex)==1)//iz Kall
          {
                if((Result->ItemIndex)==0)//v Dj
                        Label1->Caption = FloatToStr((StrToFloat(Edit1->Text))*4.19);
                if((Result->ItemIndex)==1)//v Kall
                        Label1->Caption = Edit1->Text;
                if((Result->ItemIndex)==2)//v Erg
                        Label1->Caption = FloatToStr((StrToFloat(Edit1->Text))*41900000);
          }
          else
             {
                if(Ishodnik->ItemIndex==2)//iz Erg
                  {
                        if((Result->ItemIndex)==0)//v Dj
                                Label1->Caption = FloatToStr((StrToFloat(Edit1->Text))/10000000);
                        if((Result->ItemIndex)==1)//v Kall
                                Label1->Caption = FloatToStr((StrToFloat(Edit1->Text))/41900000);
                        if((Result->ItemIndex)==2)//v Erg
                                Label1->Caption = Edit1->Text;
                  }
                  else
                     {
                      Label1->Caption = "Format of the values is not entered!";
                     }
             }
          }
}
//---------------------------------------------------------------------------
void __fastcall TEnergy::Button1Click(TObject *Sender)
{
 Close();        
}
//---------------------------------------------------------------------------






void __fastcall TEnergy::Edit1KeyPress(TObject *Sender, char &Key)
{
 if(Key!='0'&&Key!='1'&&Key!='2'&&Key!='3'&&Key!='4'&&Key!='5'&&Key!='6'&&Key!='7'&&Key!='8'&&Key!='9'&&Key!='-')
      {Key=0;}
}
//---------------------------------------------------------------------------