현재 계산기 프로그램 연습중인데 ㅋㅋ
연속 사칙연산에서 버튼 11을 누르지 않으면 안되네요 ㅉㅉㅉ
고수님들의 조언 부탁드립니다 ㅋ


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

#include <vcl.h>
#include <Sysutils.hpp>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "Excel_2K_SRVR"
#pragma resource "*.dfm"1
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}

//---------------------------------------------------------------------------
void __fastcall TForm1::BEdit1Click(TObject *Sender)
{
        AnsiString Temp ="1";
        if(!Cal)Num1 += Temp;
        else    Num2 += Temp;
        if(!Cal)Edit1->Text = Num1;
        else    Edit1->Text = Num2;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::BEdit2ClickClick(TObject *Sender)
{
        AnsiString Temp ="2";
        if(!Cal)Num1 += Temp;
        else    Num2 += Temp;
        if(!Cal)Edit1->Text = Num1;
        else    Edit1->Text = Num2;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::BEdit3ClickClick(TObject *Sender)
{
        AnsiString Temp ="3";
        if(!Cal)Num1 += Temp;
        else    Num2 += Temp;
        if(!Cal)Edit1->Text = Num1;
        else    Edit1->Text = Num2;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::BEdit4ClickClick(TObject *Sender)
{
        AnsiString Temp ="4";
        if(!Cal)Num1 += Temp;
        else    Num2 += Temp;
        if(!Cal)Edit1->Text = Num1;
        else    Edit1->Text = Num2;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::BEdit5ClickClick(TObject *Sender)
{
        AnsiString Temp ="5";
        if(!Cal)Num1 += Temp;
        else    Num2 += Temp;
        if(!Cal)Edit1->Text = Num1;
        else    Edit1->Text = Num2;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::BEdit6ClickClick(TObject *Sender)
{
        AnsiString Temp ="6";
        if(!Cal)Num1 += Temp;
        else    Num2 += Temp;
        if(!Cal)Edit1->Text = Num1;
        else    Edit1->Text = Num2;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::BEdit7ClickClick(TObject *Sender)
{
        AnsiString Temp ="7";
        if(!Cal)Num1 += Temp;
        else    Num2 += Temp;
        if(!Cal)Edit1->Text = Num1;
        else    Edit1->Text = Num2;
}
//-----------------TJ----------------------------------------------------------
void __fastcall TForm1::BEdit8ClickClick(TObject *Sender)
{
        AnsiString Temp ="8";
        if(!Cal)Num1 += Temp;
        else    Num2 += Temp;
        if(!Cal)Edit1->Text = Num1;
        else    Edit1->Text = Num2;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::BEdit9ClickClick(TObject *Sender)
{
        AnsiString Temp ="9";
        if(!Cal)Num1 += Temp;
        else    Num2 += Temp;
        if(!Cal)Edit1->Text = Num1;
        else    Edit1->Text = Num2;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::BEdit10ClickClick(TObject *Sender)
{
        AnsiString Temp ="0";
        if(!Cal)Num1 += Temp;
        else    Num2 += Temp;
        if(!Cal)Edit1->Text = Num1;
        else    Edit1->Text = Num2;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::BEdit11ClickClick(TObject *Sender)
{
        switch(Teach)
        {
            case 1 : EndValue =  AddRq(Num1,Num2); break;
            case 2 : EndValue =  BddRq(Num1,Num2); break;
            case 3 : EndValue =  CddRq(Num1,Num2); break;
            case 4 : EndValue =  DddRq(Num1,Num2); break;
        }
        Edit1->Text = EndValue;
        Cal = false;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::BEdit12ClickClick(TObject *Sender)
{
        Num2="" ;
        Teach = 1;
        Cal = true;
        AddRq(Num1,Num2);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::BEdit13ClickClick(TObject *Sender)
{
        Num2=""  ;
        Teach = 2;
        Cal = true;
        BddRq(Num1,Num2);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::BEdit14ClickClick(TObject *Sender)
{
        Num2=""  ;
        Teach = 3;
        Cal = true;
        CddRq(Num1,Num2);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::BEdit15ClickClick(TObject *Sender)
{
        Num2=""  ;
        Teach = 4;
        Cal = true;
        DddRq(Num1,Num2);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::BEdit16ClickClick(TObject *Sender)
{
        Num1 = "";
        Num2 = "";
        Teach        = 0;
        Edit1->Text = "0";
        Cal = false;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormShow(TObject *Sender)
{
        Cal = false;
        Num1        = "";
        Num2        = "";
        Edit1->Text = "";
}
//---------------------------------------------------------------------------
float __fastcall TForm1::AddRq(AnsiString Add1,AnsiString Add2)
{
       if(Add2 =="") return 0;
       float Temp1,Temp2,Result;
       Temp1 = Add1.ToDouble();
       Temp2 = Add2.ToDouble();
       Result = Temp1 + Temp2;
       Num1 = Result;
       Cal = false;
       return Result;
}
//---------------------------------------------------------------------------
float __fastcall TForm1::BddRq(AnsiString Add1,AnsiString Add2)
{
       if(Add2 =="") return 0;
       float Temp1,Temp2,Result;
       Temp1 = Add1.ToDouble();
       Temp2 = Add2.ToDouble();
       Result = Temp1 - Temp2;
       Num1 = Result;
       Cal = false;
       return Result;
}
//---------------------------------------------------------------------------
float __fastcall TForm1::CddRq(AnsiString Add1,AnsiString Add2)
{
       if(Add2 =="") return 0;
       float Temp1,Temp2,Result;
       Temp1 = Add1.ToDouble();
       Temp2 = Add2.ToDouble();
       Result = Temp1 * Temp2;
       Num1 = Result;
       Cal = false;
       return Result;
}
//---------------------------------------------------------------------------
float __fastcall TForm1::DddRq(AnsiString Add1,AnsiString Add2)
{
       if(Add2 =="") return 0;
       float Temp1,Temp2,Result;
       Temp1 = Add1.ToDouble();
       Temp2 = Add2.ToDouble();
       Result = Temp1 / Temp2;
       Num1 = Result;
       Cal = false;
       return Result;
}