Gde da definisem globalne promenjive?

Code:

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

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TCalc *Calc;
//---------------------------------------------------------------------------
__fastcall TCalc::TCalc(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TCalc::B0Click(TObject *Sender)
{
Edit1->Text = Edit1->Text + '0';
}
//---------------------------------------------------------------------------
void __fastcall TCalc::B1Click(TObject *Sender)
{
Edit1->Text = Edit1->Text + '1';        
}
//---------------------------------------------------------------------------
void __fastcall TCalc::B2Click(TObject *Sender)
{
Edit1->Text = Edit1->Text + '2';        
}
//---------------------------------------------------------------------------
void __fastcall TCalc::B3Click(TObject *Sender)
{
Edit1->Text = Edit1->Text + '3';        
}
//---------------------------------------------------------------------------
void __fastcall TCalc::B4Click(TObject *Sender)
{
Edit1->Text = Edit1->Text + '4';
}
//---------------------------------------------------------------------------
void __fastcall TCalc::B5Click(TObject *Sender)
{
Edit1->Text = Edit1->Text + '5';        
}
//---------------------------------------------------------------------------
void __fastcall TCalc::B6Click(TObject *Sender)
{
Edit1->Text = Edit1->Text + '6';        
}
//---------------------------------------------------------------------------
void __fastcall TCalc::B7Click(TObject *Sender)
{
Edit1->Text = Edit1->Text + '7';        
}
//---------------------------------------------------------------------------
void __fastcall TCalc::B8Click(TObject *Sender)
{
Edit1->Text = Edit1->Text + '8';        
}
//---------------------------------------------------------------------------
void __fastcall TCalc::B9Click(TObject *Sender)
{
Edit1->Text = Edit1->Text + '9';        
}
//---------------------------------------------------------------------------




void __fastcall TCalc::FormKeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
if(Key==VK_NUMPAD0){
        //B0->SetFocus();
        Edit1->Text=Edit1->Text+"0";
        }
if(Key==VK_NUMPAD1){
        //B1->SetFocus();
        Edit1->Text=Edit1->Text+"1";
        }
if(Key==VK_NUMPAD2){
        //B2->SetFocus();
        Edit1->Text=Edit1->Text+"2";
        }
if(Key==VK_NUMPAD3){
        //B3->SetFocus();
        Edit1->Text=Edit1->Text+"3";
        }
if(Key==VK_NUMPAD4){
        //B4->SetFocus();
        Edit1->Text=Edit1->Text+"4";
        }
if(Key==VK_NUMPAD5){
        //B5->SetFocus();
        Edit1->Text=Edit1->Text+"5";
        }
if(Key==VK_NUMPAD6){
        //B6->SetFocus();
        Edit1->Text=Edit1->Text+"6";
        }
if(Key==VK_NUMPAD7){
        //B7->SetFocus();
        Edit1->Text=Edit1->Text+"7";
        }
if(Key==VK_NUMPAD8){
       // B8->SetFocus();
        Edit1->Text=Edit1->Text+"8";
        }
if(Key==VK_NUMPAD9){
        //B9->SetFocus();
        Edit1->Text=Edit1->Text+"9";
        }
if(Key==VK_MULTIPLY){
        //BPUTA->SetFocus();
        }
if(Key==VK_DIVIDE){
        //BPODELJENO->SetFocus();
        }
if(Key==VK_ADD){
        //BPLUS->SetFocus();
        }
if(Key==VK_SUBTRACT){
        //BMINUS->SetFocus();
        }

}
//---------------------------------------------------------------------------

void __fastcall TCalc::FormActivate(TObject *Sender)
{
 BNL->SetFocus();
 //Edit1->SetFocus();
 //Meni->SetFocus();
 }
//---------------------------------------------------------------------------


void __fastcall TCalc::FormKeyUp(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
if(Key==VK_RETURN){
          //BJEDNAKO->SetFocus();
          Edit1->Undo();
        }
if(Key==VK_SEPARATOR){
        //BZAREZ->SetFocus();
        }
}
//---------------------------------------------------------------------------



void __fastcall TCalc::BNLClick(TObject *Sender)
{
Edit1->Clear();
}
//---------------------------------------------------------------------------

Code:

// ...
TCalc *Calc;
double d1;
double d2;
double d3;
int i1;
// ...

Code:

// ...
extern double d1;
extern double d2;
extern double d3;
extern int i1;
// ...

Code:

// ...
public: // recimo, u javnoj sekciji
double d1;
double d2;
double d3;
int i1;
// ...

Code:

// ...
#include "Unit1.h"
// ...
ShowMessage( Calc->d1 );
ShowMessage( Calc->d2 );
ShowMessage( Calc->d3 );
ShowMessage( Calc->i1 );
// ...

Code:

Ovaj deo koda se može značajno racionalizovati:
//---------------------------------------------------------------------------
void __fastcall TCalc::B0Click(TObject *Sender)
{
Edit1->Text = Edit1->Text + '0';
}
//---------------------------------------------------------------------------
void __fastcall TCalc::B1Click(TObject *Sender)
{
Edit1->Text = Edit1->Text + '1';        
}
//---------------------------------------------------------------------------
void __fastcall TCalc::B2Click(TObject *Sender)
{
Edit1->Text = Edit1->Text + '2';        
}
//---------------------------------------------------------------------------
void __fastcall TCalc::B3Click(TObject *Sender)
{
Edit1->Text = Edit1->Text + '3';        
}
//---------------------------------------------------------------------------
void __fastcall TCalc::B4Click(TObject *Sender)
{
Edit1->Text = Edit1->Text + '4';
}
//---------------------------------------------------------------------------
void __fastcall TCalc::B5Click(TObject *Sender)
{
Edit1->Text = Edit1->Text + '5';        
}
//---------------------------------------------------------------------------
void __fastcall TCalc::B6Click(TObject *Sender)
{
Edit1->Text = Edit1->Text + '6';        
}
//---------------------------------------------------------------------------
void __fastcall TCalc::B7Click(TObject *Sender)
{
Edit1->Text = Edit1->Text + '7';        
}
//---------------------------------------------------------------------------
void __fastcall TCalc::B8Click(TObject *Sender)
{
Edit1->Text = Edit1->Text + '8';        
}
//---------------------------------------------------------------------------
void __fastcall TCalc::B9Click(TObject *Sender)
{
Edit1->Text = Edit1->Text + '9';        
}

Code:

void __fastcall TForm1::Button1Click(TObject *Sender)
{
    TButton *KojiTasterJePritisnut = dynamic_cast<TButton *>(Sender);

    if ( KojiTasterJePritisnut )
       Edit1->Text = Edit1->Text + KojiTasterJePritisnut->Caption;
}