From e6d4c05634bc24845c421bd001db31aacaa8fcaa Mon Sep 17 00:00:00 2001 From: Aleksander Misztal Date: Sat, 9 Feb 2019 11:07:33 +0000 Subject: [PATCH] =?UTF-8?q?Usu=C5=84=20'Unit3.cpp'?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Unit3.cpp | 218 ------------------------------------------------------ 1 file changed, 218 deletions(-) delete mode 100644 Unit3.cpp 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; - } -} -//---------------------------------------------------------------------------