Delphi Simpe Calculator Made by T@RGET

{Made By T@RGET in DELPHI XE2 31.7.2012}

unit Kalkulator;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Touch.Keyboard;

type
  TForm11 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Edit3: TEdit;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    Button8: TButton;
    Button9: TButton;
    InsertText: TMemo;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form11: TForm11;
  a: Real;
  b: Real;
  c: Real;



implementation

{$R *.dfm}

procedure TForm11.Button1Click(Sender: TObject);

begin
    try
     a := (StrToFloat(Edit1.Text));
     b := (StrToFloat(Edit2.Text));
     c := a+b;
     Edit3.Text := FloatToStr(c)
     except
       ShowMessage('Moras uneti broj');
    end;

end;

procedure TForm11.Button2Click(Sender: TObject);
begin
    try
    a := (StrToFloat(Edit1.Text));
    b := (StrToFloat(Edit2.Text));
    c := a-b;
    Edit3.Text := FloatToStr(c);
    except
       ShowMessage('Moras uneti broj');
    end;

end;

procedure TForm11.Button3Click(Sender: TObject);
begin
    try
    a := (StrToFloat(Edit1.Text));
    b := (StrToFloat(Edit2.Text));
    c := a*b;
    Edit3.Text := FloatToStr(c);
    except
       ShowMessage('Moras uneti broj');
    end;
end;

procedure TForm11.Button4Click(Sender: TObject);
begin
    try
    a := (StrToFloat(Edit1.Text));
    b := (StrToFloat(Edit2.Text));
    c := a/b;
    Edit3.Text := FloatToStr(c);
    except
       ShowMessage('Moras uneti broj');
    end;
end;

procedure TForm11.Button5Click(Sender: TObject);
begin
   try
   a := (StrToFloat(Edit1.Text));
   c := sqrt(a);
   Edit3.Text := FloatToStr(c);
   except
       ShowMessage('Moras uneti broj');
    end;
end;

procedure TForm11.Button6Click(Sender: TObject);
begin
  try
   a := (StrToFloat(Edit1.Text));
   c := sqr(a);
   Edit3.Text := FloatToStr(c);
   except
       ShowMessage('Moras uneti broj');
    end;
end;

procedure TForm11.Button7Click(Sender: TObject);
begin
    try
    a := (StrToFloat(Edit1.Text));
    b := (StrToFloat(Edit2.Text));
    c := a/100*b;
    Edit3.Text := FloatToStr(c);
    except
       ShowMessage('Moras uneti broj');
    end;
end;

procedure TForm11.Button8Click(Sender: TObject);
begin
  Edit1.Clear;
  Edit2.Clear;
  Edit3.Clear;
end;

procedure TForm11.Button9Click(Sender: TObject);
begin
  Edit3.SelectAll;
  Edit3.CopyToClipboard;
  Edit1.Clear;
  Edit2.Clear;
  Edit3.Clear;
  Edit1.PasteFromClipboard;
end;

end.

{Made By T@RGET in DELPHI XE2 31.7.2012}