Форум программистов [Powered by Invision Power Board]

Код


#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"

float B1;

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

}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
// производяться действия с переменной B1 и в ней меняется значение
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
// в этой функции значени переменной B1 не изменилось (т.е. не такое какое стало в функции Button1Click)
}
//---------------------------------------------------------------------------

Цитата(jonie @ 24.6.2007, 05:44

)

Может банальное перекрывание области видимости?

Код


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

#include <vcl.h>
#include "func.h"
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"

float B1, nn;

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

}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
// функция переводящая из градусов в радианы
B1 = GrToRad(StrToFloat(EB1g->Text), StrToFloat(EB1m->Text),StrToFloat(EB1s->Text));
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{

nn = er2*pow(cos(B1), 2);

Edit->Text = FloatToStr(nn); 

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