cd1_1u.cpp

C++ Builder程序员学习数据结构 第1章源码

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

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

//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;    //将变量设于此处就可以用于所有窗体事件中
String c;         //将变量c设为字符串类型(String),注意在C语言中字母大小写是不同的
float f,f1,f2;    //将f,f1,f2设为浮点类型(float),常用变量类型请参考附录
int opr,vrb;      //将opr这个变量设为整数类型(int)
                  /*operators(opr) ,variable(vrb)变量名称除
                  简易原则外,最好是具有意义的词*/
//---------------------------------------------------------------------------

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

void __fastcall TForm1::c0Click(TObject *Sender)//注意，是c0的OnClick事件
{
   String c0="0";       //设置c0这个Button控件的数据类型为字符串类型(string),内容为0
   c=c+c0;              /*累计数字，合并字符串，（=）是赋值的意思，就是将
                          c字符串与c0字符串合并后再返回给c字符串*/
   eout->Text=c;        /*将c字符串内容赋给名称为eOut(Edit对象)的
                          Text属性内容,->是由减号(-)与大于号(>)组成*/
   f=StrToFloat(c);     //将c由字符串类型(Str)转换成(To)浮点类型(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)  //请不要随意复制或更改函数名称
{                                                 //请双击对象事件后进入函数
   String c8="8";                                 //应复制的是大括号中的内容
   c=c+c8;
   eout->Text=c;
   f=StrToFloat(c);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::c9Click(TObject *Sender)
{
   String c9="9";       //粘贴函数内容后,再根据控件事件的不同而修改变量
   c=c+c9;
   eout->Text=c;
   f=StrToFloat(c);
}

//---------------------------------------------------------------------------
void __fastcall TForm1::c01Click(TObject *Sender)  //"+"对象名称设为c01
{
   c=" ";           //将c字符串设定为空