Pedro Henrique P. F.

Se tiver alguma coisa pra melhorar sintam-se a vontade de falar unit calculadora; interface uses System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.StdCtrls, FMX.Controls.Presentation, FMX.Objects; type TForm1 = class(TForm) Rectangle1: TRectangle; Button1: TButton; Button2: TButton; Button3: TButton; Button4: TButton; Button5: TButton; Button6: TButton; Button7: TButton; Button8: TButton; Button9: TButton; Button10: TButton; Button11: TButton; Button12: TButton; Button13: TButton; Button14: TButton; Button15: TButton; Button16: TButton; LabelDisplay: TLabel; Label1: TLabel; procedure Button16Click(Sender: TObject); 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); procedure Button10Click(Sender: TObject); procedure Button11Click(Sender: TObject); procedure Button12Click(Sender: TObject); procedure Button15Click(Sender: TObject); procedure Button14Click(Sender: TObject); procedure Button13Click(Sender: TObject); procedure FormKeyUp(Sender: TObject; var Key: Word; var KeyChar: Char; Shift: TShiftState); private { Private declarations } a : integer; b : integer; operacao : char; public { Public declarations } end; var Form1: TForm1; implementation {$R *.fmx} procedure TForm1.Button10Click(Sender: TObject); var resposta : real; begin if LabelDisplay.Text = '' then exit; b := LabelDisplay.Text.ToInteger; if operacao = '+' then resposta := a + b else if operacao = '-' then resposta := a - b else if operacao = '/' then resposta := a / b else if operacao = 'x' then resposta := a * b; LabelDisplay.Text := currtostr (resposta); end; procedure TForm1.Button11Click(Sender: TObject); begin if LabelDisplay.Text = '' then exit; operacao := '+'; a := LabelDisplay.Text.ToInteger; LabelDisplay.Text := ''; end; procedure TForm1.Button12Click(Sender: TObject); begin if LabelDisplay.Text = '' then exit; operacao := '-'; a := LabelDisplay.Text.ToInteger; LabelDisplay.Text := ''; end; procedure TForm1.Button13Click(Sender: TObject); begin LabelDisplay.Text := ''; end; procedure TForm1.Button14Click(Sender: TObject); begin if LabelDisplay.Text = '' then exit; operacao := '/'; a := LabelDisplay.Text.ToInteger; LabelDisplay.Text := ''; end; procedure TForm1.Button15Click(Sender: TObject); begin if LabelDisplay.Text = '' then exit; operacao := 'x'; a := LabelDisplay.Text.ToInteger; LabelDisplay.Text := ''; end; procedure TForm1.Button16Click(Sender: TObject); begin LabelDisplay.Text := LabelDisplay.Text + '0'; end; procedure TForm1.Button1Click(Sender: TObject); begin LabelDisplay.Text := LabelDisplay.Text + '1'; end; procedure TForm1.Button2Click(Sender: TObject); begin LabelDisplay.Text := LabelDisplay.Text + '2'; end; procedure TForm1.Button3Click(Sender: TObject); begin LabelDisplay.Text := LabelDisplay.Text + '3'; end; procedure TForm1.Button4Click(Sender: TObject); begin LabelDisplay.Text := LabelDisplay.Text + '4'; end; procedure TForm1.Button5Click(Sender: TObject); begin LabelDisplay.Text := LabelDisplay.Text + '5'; end; procedure TForm1.Button6Click(Sender: TObject); begin LabelDisplay.Text := LabelDisplay.Text + '6'; end; procedure TForm1.Button7Click(Sender: TObject); begin LabelDisplay.Text := LabelDisplay.Text + '7'; end; procedure TForm1.Button8Click(Sender: TObject); begin LabelDisplay.Text := LabelDisplay.Text + '8'; end; procedure TForm1.Button9Click(Sender: TObject); begin LabelDisplay.Text := LabelDisplay.Text + '9'; end; procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word; var KeyChar: Char; Shift: TShiftState); begin if key = vkNumpad0 then Button16Click( Button16 ); end; end.