www.pudn.com > C++ Builder 6 编程实例教程.zip > Calc.cpp, change:2002-04-14,size:5683b

//--------------------------------------------------------------------------- 
#include <vcl.h> 
#pragma hdrstop 
#include <math.h> 
#include "Calc.h" 
 
//--------------------------------------------------------------------------- 
#pragma package(smart_init) 
#pragma resource "*.dfm" 
 
TForm1 *Form1; 
float temp1; 
float temp2; 
int flag; 
int append; 
//--------------------------------------------------------------------------- 
__fastcall TForm1::TForm1(TComponent* Owner) 
        : TForm(Owner) 
{ 
} 
//--------------------------------------------------------------------------- 
 
void __fastcall TForm1::Button1Click(TObject *Sender) 
{ 
if (append!=0) Form1->Edit1->Clear(); 
 Form1->Edit1->Text=Form1->Edit1->Text+Form1->Button1->Caption; 
 //单击1按钮 
 append=0; 
} 
//--------------------------------------------------------------------------- 
 
void __fastcall TForm1::FormCreate(TObject *Sender) 
{ 
 Form1->Edit1->Clear(); 
 //清除文本框中的内容 
 temp1=0; 
 temp2=0; 
 flag=0; 
 append=0; 
 //变量赋初值 
} 
//--------------------------------------------------------------------------- 
 
void __fastcall TForm1::Button2Click(TObject *Sender) 
{ 
if (append!=0) Form1->Edit1->Clear(); 
 Form1->Edit1->Text=Form1->Edit1->Text+Form1->Button2->Caption; 
 //单击2按钮 
 append=0; 
} 
//--------------------------------------------------------------------------- 
 
void __fastcall TForm1::Button3Click(TObject *Sender) 
{ 
if (append!=0) Form1->Edit1->Clear(); 
 Form1->Edit1->Text=Form1->Edit1->Text+Form1->Button3->Caption; 
 //单击3按钮 
 append=0; 
} 
//--------------------------------------------------------------------------- 
 
void __fastcall TForm1::Button4Click(TObject *Sender) 
{ 
if (append!=0) Form1->Edit1->Clear(); 
 Form1->Edit1->Text=Form1->Edit1->Text+Form1->Button4->Caption; 
 //单击4按钮 
 append=0; 
} 
//--------------------------------------------------------------------------- 
 
void __fastcall TForm1::Button5Click(TObject *Sender) 
{ 
if (append!=0) Form1->Edit1->Clear(); 
 Form1->Edit1->Text=Form1->Edit1->Text+Form1->Button5->Caption; 
 //单击5按钮 
 append=0; 
} 
//--------------------------------------------------------------------------- 
 
void __fastcall TForm1::Button6Click(TObject *Sender) 
{ 
if (append!=0) Form1->Edit1->Clear(); 
 Form1->Edit1->Text=Form1->Edit1->Text+Form1->Button6->Caption; 
 //单击6按钮 
 append=0; 
} 
//--------------------------------------------------------------------------- 
void __fastcall TForm1::Button7Click(TObject *Sender) 
{ 
if (append!=0) Form1->Edit1->Clear(); 
 Form1->Edit1->Text=Form1->Edit1->Text+Form1->Button7->Caption; 
 //单击7按钮 
 append=0; 
} 
//--------------------------------------------------------------------------- 
void __fastcall TForm1::Button8Click(TObject *Sender) 
{ 
if (append!=0) Form1->Edit1->Clear(); 
 Form1->Edit1->Text=Form1->Edit1->Text+Form1->Button8->Caption; 
 //单击8按钮 
 append=0; 
} 
//--------------------------------------------------------------------------- 
void __fastcall TForm1::Button9Click(TObject *Sender) 
{ 
if (append!=0) Form1->Edit1->Clear(); 
 Form1->Edit1->Text=Form1->Edit1->Text+Form1->Button9->Caption; 
 //单击9按钮 
 append=0; 
} 
//--------------------------------------------------------------------------- 
void __fastcall TForm1::Button10Click(TObject *Sender) 
{ 
if (append!=0) Form1->Edit1->Clear(); 
 Form1->Edit1->Text=Form1->Edit1->Text+Form1->Button10->Caption; 
 //单击0按钮 
 append=0; 
} 
//--------------------------------------------------------------------------- 
 
void __fastcall TForm1::Button13Click(TObject *Sender) 
{ 
flag=1; 
//设置加法标志 
if (Form1->Edit1->Text!="") 
temp1=StrToFloat(Form1->Edit1->Text); 
//为变量temp1赋值 
//Form1->Edit1->Clear(); 
//清空文本框 
append=1; 
} 
//--------------------------------------------------------------------------- 
 
void __fastcall TForm1::Button14Click(TObject *Sender) 
{ 
flag=2; 
//设置减法标志 
if (Form1->Edit1->Text!="") 
temp1=StrToFloat(Form1->Edit1->Text); 
//为变量temp1赋值 
//Form1->Edit1->Clear(); 
//清空文本框 
append=1; 
} 
//--------------------------------------------------------------------------- 
 
void __fastcall TForm1::Button15Click(TObject *Sender) 
{ 
flag=3; 
//设置乘法标志变量值 
if (Form1->Edit1->Text!="") 
temp1=StrToFloat(Form1->Edit1->Text); 
//为变量temp1赋值 
//Form1->Edit1->Clear(); 
//清空文本框 
append=1; 
} 
//--------------------------------------------------------------------------- 
 
void __fastcall TForm1::Button16Click(TObject *Sender) 
{ 
flag=4; 
//设置除法标志 
if (Form1->Edit1->Text!="") 
temp1=StrToFloat(Form1->Edit1->Text); 
//为变量temp1赋值 
//Form1->Edit1->Clear(); 
//清空文本框 
append=1; 
} 
//--------------------------------------------------------------------------- 
 
void __fastcall TForm1::Button11Click(TObject *Sender) 
{ 
 switch (flag) 
 { 
     case 1: temp2=StrToFloat(Edit1->Text)+StrToFloat(temp1); 
             //进行加法运算 
             break; 
     case 2: temp2=StrToFloat(temp1)-StrToFloat(Edit1->Text); 
             //进行减法运算 
             break; 
     case 3: temp2=StrToFloat(Edit1->Text)*StrToFloat(temp1); 
             //进行乘法运算 
             break; 
     case 4: temp2=StrToFloat(temp1)/StrToFloat(Edit1->Text); 
             //进行除法运算 
 } 
 Edit1->Text=FloatToStr(temp2); 
 //显示运算结果 
 append=1; 
} 
//--------------------------------------------------------------------------- 
 
void __fastcall TForm1::Button12Click(TObject *Sender) 
{ 
 Form1->Edit1->Clear(); 
 //清除文本框中的内容 
 temp1=0; 
 temp2=0; 
 flag=0; 
 //变量赋初值 
 
} 
//---------------------------------------------------------------------------