dtob.cpp

十进制数与二进制数的互相转换 编程练习

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

#include <vcl.h>
#pragma hdrstop

#include "DtoB.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::DTOBClick(TObject *Sender)
{
    if (Edit_D->Text!="")
       try
        {
           unsigned long m=StrToInt64(Edit_D->Text) ;
           Out_B->Text="";
           while(m!=0)
           {Out_B->Text=IntToStr(m%2)+Out_B->Text;
            m=m/2;
           }
        }
        catch(...)
        {  Edit_D->Text="";   Out_B->Text="";
        }
}
//---------------------------------------------------------------------------


void __fastcall TForm1::BTODClick(TObject *Sender)
{
 int length=Edit_B->Text.Length();
 int D=0,power=1;
 while(length>0)
   {if (Edit_B->Text[length]=='1') D=D+power;
    power=power*2;
    length--;
   }
 Out_D->Text=IntToStr(D);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::FormCreate(TObject *Sender)
{
   Edit_D->Text="";
   Edit_B->Text="";
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Edit_DKeyUp(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
   if(Edit_D->Text.Length()>10)Edit_D->Text=ChangeStr;
   if(Edit_D->Text[Edit_D->Text.Length()]>'9' || Edit_D->Text[Edit_D->Text.Length()]<'0')Edit_D->Text="";
   ChangeStr=Edit_D->Text;
}
//---------------------------------------------------------------------------



void __fastcall TForm1::Edit_DMouseUp(TObject *Sender, TMouseButton Button,
      TShiftState Shift, int X, int Y)
{
    ChangeStr=""; Edit_D->Text=""; Out_B->Text="";
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Edit_BKeyUp(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
   if(Edit_B->Text.Length()>31)Edit_B->Text=ChangeStr;
   if(Edit_B->Text[Edit_B->Text.Length()]>'1'||Edit_B->Text[Edit_B->Text.Length()]<'0')Edit_B->Text="";
   ChangeStr=Edit_B->Text;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Edit_BMouseUp(TObject *Sender, TMouseButton Button,
      TShiftState Shift, int X, int Y)
{
     ChangeStr=""; Edit_B->Text="";  Out_D->Text="";
}
//---------------------------------------------------------------------------