ООП / C++ / Lab2C / ex3 / Unit1

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

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
	: TForm(Owner)
{
	isfractal = false;
	isstart = false;
	op = 0;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button13Click(TObject *Sender)
{
	if (!isstart) {
			Edit1->Text=((TButton*) Sender)->Caption;
			isstart = true;
		}
		else {
			Edit1->Text=Edit1->Text+((TButton*) Sender)->Caption;
		}
}

//---------------------------------------------------------------------------
void __fastcall TForm1::Button16Click(TObject *Sender)
{
	Edit1->Text = "0";
	isstart = false;
	isfractal = false;
	op = 0;
	a = 0;
	b = 0;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button14Click(TObject *Sender)
{
	if (!isfractal) {
		if (!isstart) {
			Edit1->Text="0.";
			isfractal = true;
			isstart = true;
		}
		else {
			Edit1->Text=Edit1->Text+".";
			isfractal = true;
			isstart = true;
		}
	}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button15Click(TObject *Sender)
{
	if (op == 0) {
		a = StrToFloat(Edit1 -> Text);
		isstart = false;
		isfractal = false;
		op = ((TButton*) Sender) -> Tag;
	}
	else {
		if (isstart) {
			b = StrToFloat(Edit1 -> Text);
			Edit1 -> Text = compute(a, b, op);
			a = StrToFloat(Edit1 -> Text);
			op = ((TButton*) Sender) -> Tag;
			isstart = false;
			isfractal = false;
		}
		else {
			op = ((TButton*) Sender) -> Tag;
		}
	}
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button17Click(TObject *Sender)
{
	b = StrToFloat(Edit1->Text);
	result = compute(a, b, op);
	Edit1->Text=result;
	isstart = false;
	isfractal = false;
}
//---------------------------------------------------------------------------