Criacao delphi calculadora simples

unit UnCalc;

interface

uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;

type TFmCalculadora = class(TForm) Edit1: TEdit; Edit2: TEdit; Edit3: TEdit; btnSoma: TButton; btnSubtracao: TButton; btnMultiplica: TButton; btnDivide: TButton; btnLimpa: TButton; procedure btnSomaClick(Sender: TObject); procedure btnSubtracaoClick(Sender: TObject); procedure btnMultiplicaClick(Sender: TObject); procedure btnDivideClick(Sender: TObject); procedure btnLimpaClick(Sender: TObject); private { Private declarations } public { Public declarations } end;

var FmCalculadora: TFmCalculadora;

implementation

{$R *.dfm}

procedure TFmCalculadora.btnDivideClick(Sender: TObject); var valor1, valor2 : Double; // cria 2 variaveis do tipo float

begin valor1 := StrToFloat(Edit1.Text);// converte texto em edit1 p valor numerico valor2 := StrToFloat(Edit2.Text);// converte texto em edit2 p valor numerico Edit3.Text := FloatToStr(valor1 / valor2); //insere o valor da divisao no Edit3 //ja convertido para string

end;

procedure TFmCalculadora.btnLimpaClick(Sender: TObject); begin Edit1.Clear; Edit2.Clear; Edit3.Clear;

end;

procedure TFmCalculadora.btnMultiplicaClick(Sender: TObject); var valor1, valor2 : Double; // cria 2 variaveis do tipo float

begin valor1 := StrToFloat(Edit1.Text);// converte texto em edit1 p valor numerico valor2 := StrToFloat(Edit2.Text);// converte texto em edit2 p valor numerico Edit3.Text := FloatToStr(valor1 * valor2); //insere o valor da multiplicacao no Edit3 //ja convertido para string

end;

procedure TFmCalculadora.btnSomaClick(Sender: TObject);

var valor1, valor2 : Double; // cria 2 variaveis do tipo float

begin valor1 :=