: 
: Unit.h
: :
: :
: private:	// User declarations
:        double A,B,f;       //이런 변수들은 왠만하면 Unit.h 파일 안에 private에 넣어 주세요...
:        int i, c;
:        AnsiString temp;
: 
: //---------------------------------------------------------
: 
: Unit.cpp
: :
: :
: :
: 
: //double A=0,B=0,f=2;       //이런 변수들은 왠만하면 Unit.h 파일 안에 private에 넣어 주세요...
: //int i, c=0;
: //AnsiString temp ;
: //---------------------------------------------------------------------------
: #pragma package(smart_init)
: #pragma resource "*.dfm"
: TCalculator *Calculator;
: //---------------------------------------------------------------------------
: __fastcall TCalculator::TCalculator(TComponent* Owner)
:     : TForm(Owner)
: {
:   A = 0.0;         //그리고 변수도 이렇게 하면 자신도 못 알아보니  double이면  dA, fA, iA 이런 식으로 하면 좋지요
:   B = 0.0;         //그리고 dA 이렇게 하면 double A라는 것은 아는 데... 프로그램 한참 하다보면 A가 뭔가? 그러니 dSum, dTotal
:   f = 2.0;         //뭐 이런씩으로 하면 프로그램이 쉬겠지요... ^^  저도 프로그램 잘 못하는 데... 잘 하시는 것 같습니다.
:   i = 0;           //3년 정도 하시면 저보다 훨씬 잘 할 것 같습니다. 하이팅...
:   c = 0;           //현재 대학 교수님도 님같이 코딩하는 분이 많다는 사실 놀랍지요.
:                    //다른 것은 그대로 두고 자승 부분만 약간 손을 보았습니다. 제가 아는 수준에서... 혹 도움이 되었으면 합니다.
:   temp = "";       //이런 것은 asTemp 이렇게 하면 쉽지요...
: }                  //그리고 줄 라인 깨끗하게...  코딩하셔야... 헷갈리지 않습니다.
:                    //void __fastcall TCalculator::selfClick(TObject *Sender) 이 부분만 참고하시고 다른 것은 하나 하나 해보세요.
:                    //프로그램은 중독성이 있습니다. 저도 중독자입니다. ㅋㅋㅋ
: //---------------------------------------------------------------------------
: :
: :
: :
: :
: 
: //double *d = new double;
: //delete d             혹 이런 것이 사용하고자 하더라도 double d; 사용하세요   &d는 double *d 이것과 같으니까요? ^^
: //그래도 double 를 여러개 확보할 떄는   double *d = new double[100];  이런 식으로 하고 해제할 때는 delete []d; 하시면 됩니다.
: 
: //자승은 금방 예외가 발생하니 Debug모드에서 하지 마시고 Build하고 탐색기에서 실행하세요...
: 
: void __fastcall TCalculator::selfClick(TObject *Sender)
: {
:   double C;
: 
:   if(view->Text=="")
:   {
:     ShowMessage("Input Number!");
:     return;
:   }
:   //----------------------------------------------------------------------------
: 
:   A=StrToFloat(view->Text);
: 
:   if( iText);
: 
:     view->Clear();
: 
:     try
:     {
:       C = A*A;
:       view->Text = C;
:     }
:     catch(...)
:     {
:       view->Text = A;
:     }
:   }
: 
: }
: //---------------------------------------------------------------------------
: 
: 

: : #include 
: : #pragma hdrstop
: : 
: : #include "Unit1.h"
: : double A=0,B=0,i=0;
: : AnsiString temp ;
: : //---------------------------------------------------------------------------
: : void __fastcall TCalculator::selfClick(TObject *Sender)
: : {
: : double C, j, z;
: : double *d = new double;
: : if(view->Text==""){
: : ShowMessage("Input Number!");
: : }else if(i!=1){
: : A=StrToFloat(view->Text);
: : i=1;
: : view->Clear();
: : C=A*A;
: : view->Text = C;
: : }else{
: : view->Clear();
: : for(j=0;jText = z;
: : i++;
: : }
: : delete d;
: : }
: :