unit1.~cpp

一个简单的计算器示例

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

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Edit1->Text=Edit1->Text+"1";
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
  Edit1->Text=Edit1->Text+"2";
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
      Edit1->Text=Edit1->Text+"3";  
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button4Click(TObject *Sender)
{
   Edit1->Text=Edit1->Text+"4";     
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button5Click(TObject *Sender)
{
 Edit1->Text=Edit1->Text+"5";       
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button6Click(TObject *Sender)
{
    Edit1->Text=Edit1->Text+"6";    
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button7Click(TObject *Sender)
{
    Edit1->Text=Edit1->Text+"7";    
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button8Click(TObject *Sender)
{
     Edit1->Text=Edit1->Text+"8";   
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button9Click(TObject *Sender)
{   Edit1->Text=Edit1->Text+"9";

}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button10Click(TObject *Sender)
{
    Edit1->Text=Edit1->Text+"0";
}


//---------------------------------------------------------------------------
void __fastcall TForm1::Button11Click(TObject *Sender)
{
Edit1->Clear();
}
//---------------------------------------------------------------------------
AnsiString temp1;
int n;
void __fastcall TForm1::Button13Click(TObject *Sender)
{
 n=1;
 temp1=Edit1->Text;
 Edit1->Clear();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button14Click(TObject *Sender)
{
 n=2;
 temp1=Edit1->Text;
 Edit1->Clear();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button15Click(TObject *Sender)
{
   n=3;
   temp1=Edit1->Text;
 Edit1->Clear();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button16Click(TObject *Sender)
{
n=4;
temp1=Edit1->Text;
 Edit1->Clear();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button12Click(TObject *Sender)
{
  float   temp2;       /*用来保存运算结果*/
   switch(n)
    {  case 1: temp2=StrToFloat(temp1) + StrToFloat(Edit1->Text);  break;
        case 2: temp2=StrToFloat(temp1) - StrToFloat(Edit1->Text);  break;
        case 3: temp2=StrToFloat(temp1) * StrToFloat(Edit1->Text);  break;
        case 4: if (Edit1->Text == 0)
                       ShowMessage(" 除数为0！");
                    else
                       temp2=StrToFloat(temp1) / StrToFloat(Edit1->Text);
      }
    Edit1->Text=FloatToStr(temp2);          /*将结果输出在Edit框中*/
      
}
//---------------------------------------------------------------------------