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

#include <vcl.h>
#pragma hdrstop
#include <math.h>
#include "cd1_1u.h"

//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;    //將變量設(shè)于此處就可以用于所有窗體事件中
String c;         //將變量c設(shè)為字符串類型(String),注意在C語言中字母大小寫是不同的
float f,f1,f2;    //將f,f1,f2設(shè)為浮點(diǎn)類型(float),常用變量類型請(qǐng)參考附錄
int opr,vrb;      //將opr這個(gè)變量設(shè)為整數(shù)類型(int)
                  /*operators(opr) ,variable(vrb)變量名稱除
                  簡易原則外,最好是具有意義的詞*/
//---------------------------------------------------------------------------

__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::c0Click(TObject *Sender)//注意，是c0的OnClick事件
{
   String c0="0";       //設(shè)置c0這個(gè)Button控件的數(shù)據(jù)類型為字符串類型(string),內(nèi)容為0
   c=c+c0;              /*累計(jì)數(shù)字，合并字符串，（=）是賦值的意思，就是將
                          c字符串與c0字符串合并后再返回給c字符串*/
   eout->Text=c;        /*將c字符串內(nèi)容賦給名稱為eOut(Edit對(duì)象)的
                          Text屬性內(nèi)容,->是由減號(hào)(-)與大于號(hào)(>)組成*/
   f=StrToFloat(c);     //將c由字符串類型(Str)轉(zhuǎn)換成(To)浮點(diǎn)類型(Float),再賦值給f

}
//---------------------------------------------------------------------------
void __fastcall TForm1::c1Click(TObject *Sender)
{
   String c1="1";
   c=c+c1;
   eout->Text=c;
   f=StrToFloat(c);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::c2Click(TObject *Sender)
{
   String c2="2";
   c=c+c2;
   eout->Text=c;
   f=StrToFloat(c);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::c3Click(TObject *Sender)
{
   String c3="3";
   c=c+c3;
   eout->Text=c;
   f=StrToFloat(c);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::c4Click(TObject *Sender)
{
   String c4="4";
   c=c+c4;
   eout->Text=c;
   f=StrToFloat(c);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::c5Click(TObject *Sender)
{
   String c5="5";
   c=c+c5;
   eout->Text=c;
   f=StrToFloat(c);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::c6Click(TObject *Sender)
{
   String c6="6";
   c=c+c6;
   eout->Text=c;
   f=StrToFloat(c);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::c7Click(TObject *Sender)
{
   String c7="7";
   c=c+c7;
   eout->Text=c;
   f=StrToFloat(c);
}

//---------------------------------------------------------------------------
void __fastcall TForm1::c8Click(TObject *Sender)  //請(qǐng)不要隨意復(fù)制或更改函數(shù)名稱
{                                                 //請(qǐng)雙擊對(duì)象事件后進(jìn)入函數(shù)
   String c8="8";                                 //應(yīng)復(fù)制的是大括號(hào)中的內(nèi)容
   c=c+c8;
   eout->Text=c;
   f=StrToFloat(c);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::c9Click(TObject *Sender)
{
   String c9="9";       //粘貼函數(shù)內(nèi)容后,再根據(jù)控件事件的不同而修改變量
   c=c+c9;
   eout->Text=c;
   f=StrToFloat(c);
}

//---------------------------------------------------------------------------
void __fastcall TForm1::c01Click(TObject *Sender)  //"+"對(duì)象名稱設(shè)為c01
{
   c=" ";           //將c字符串設(shè)定為空