diff --git a/Unit3.cpp b/Unit3.cpp deleted file mode 100644 index 0c41fb4..0000000 --- a/Unit3.cpp +++ /dev/null @@ -1,218 +0,0 @@ -//--------------------------------------------------------------------------- - -#include -#pragma hdrstop - -#include "Unit3.h" -//--------------------------------------------------------------------------- -#pragma package(smart_init) -#pragma resource "*.dfm" -TForm3 *Form3; -//--------------------------------------------------------------------------- -__fastcall TForm3::TForm3(TComponent* Owner) - : TForm(Owner) -{ -} -//--------------------------------------------------------------------------- - - -void __fastcall TForm3::Button10Click(TObject *Sender) -{ - Edit1->Text=Edit1->Text+0; -} -//--------------------------------------------------------------------------- - -void __fastcall TForm3::Button7Click(TObject *Sender) -{ - Edit1->Text=Edit1->Text+1; -} -//--------------------------------------------------------------------------- - -void __fastcall TForm3::Button8Click(TObject *Sender) -{ - Edit1->Text=Edit1->Text+2; -} -//--------------------------------------------------------------------------- - -void __fastcall TForm3::Button9Click(TObject *Sender) -{ - Edit1->Text=Edit1->Text+3; -} -//--------------------------------------------------------------------------- - -void __fastcall TForm3::Button4Click(TObject *Sender) -{ - Edit1->Text=Edit1->Text+4; -} -//--------------------------------------------------------------------------- - -void __fastcall TForm3::Button5Click(TObject *Sender) -{ - Edit1->Text=Edit1->Text+5; -} -//--------------------------------------------------------------------------- - -void __fastcall TForm3::Button6Click(TObject *Sender) -{ - Edit1->Text=Edit1->Text+6; -} -//--------------------------------------------------------------------------- - -void __fastcall TForm3::Button1Click(TObject *Sender) -{ - Edit1->Text=Edit1->Text+7; -} -//--------------------------------------------------------------------------- - -void __fastcall TForm3::Button2Click(TObject *Sender) -{ - Edit1->Text=Edit1->Text+8; -} -//--------------------------------------------------------------------------- - -void __fastcall TForm3::Button3Click(TObject *Sender) -{ - Edit1->Text=Edit1->Text+9; -} -//--------------------------------------------------------------------------- - -void __fastcall TForm3::Button13Click(TObject *Sender) -{ - if (mnozenie==true){ - y=Edit1->Text.ToDouble(); - x=x*y; - Edit1->Text=""; - - } - else{ - x=Edit1->Text.ToDouble(); - mnozenie=true; - Edit1->Clear(); - dodawanie=false; - odejmowanie=false; - dzielenie=false; - przecinek=false; - - } - -} -//--------------------------------------------------------------------------- - -void __fastcall TForm3::Button12Click(TObject *Sender) -{ - if (dzielenie==true){ - y=Edit1->Text.ToDouble(); - x=x/y; - Edit1->Text=""; - - } - else{ - x=Edit1->Text.ToDouble(); - dzielenie=true; - Edit1->Clear(); - dodawanie=false; - odejmowanie=false; - mnozenie=false; - przecinek=false; - - } -} -//--------------------------------------------------------------------------- -void __fastcall TForm3::Button14Click(TObject *Sender) -{ - if (dodawanie==true){ - y=Edit1->Text.ToDouble(); - x=x+y; - Edit1->Text=""; - - } - else{ - x=Edit1->Text.ToDouble(); - dodawanie=true; - Edit1->Clear(); - mnozenie=false; - odejmowanie=false; - dzielenie=false; - przecinek=false; - - } -} -//--------------------------------------------------------------------------- -void __fastcall TForm3::Button15Click(TObject *Sender) -{ - if (odejmowanie==true){ - y=Edit1->Text.ToDouble(); - x=x-y; - Edit1->Text=""; - - } - else{ - x=Edit1->Text.ToDouble(); - odejmowanie=true; - Edit1->Clear(); - dodawanie=false; - mnozenie=false; - dzielenie=false; - przecinek=false; - - } -} -//--------------------------------------------------------------------------- -void __fastcall TForm3::Button16Click(TObject *Sender) -{ - x=0; - y=0; - Edit1->Text=""; - dodawanie=false; - odejmowanie=false; - mnozenie=false; - dzielenie=false; - -} -//--------------------------------------------------------------------------- -void __fastcall TForm3::Button17Click(TObject *Sender) -{ - if(dodawanie==true){ - y=Edit1->Text.ToDouble(); - x=x+y; - Edit1->Text=x; - x=0; - y=0; - przecinek=false; - } - if(odejmowanie==true){ - y=Edit1->Text.ToDouble(); - x=x-y; - Edit1->Text=x; - x=0; - y=0; - przecinek=false; - } - if(mnozenie==true){ - y=Edit1->Text.ToDouble(); - x=x*y; - Edit1->Text=x; - x=0; - y=0; - przecinek=false; - } - if(dzielenie==true){ - y=Edit1->Text.ToDouble(); - x=x/y; - Edit1->Text=x; - x=0; - y=0; - przecinek=false; - } -} -//--------------------------------------------------------------------------- -void __fastcall TForm3::Button11Click(TObject *Sender) -{ - if (!przecinek){ - AnsiString cyfra=Edit1->Text; - cyfra+=','; - Edit1->Text=cyfra; - przecinek=true; - } -} -//---------------------------------------------------------------------------