calculadora

Listagem 1: Declarando variáveis globais

private { Private declarations } public { Public declarations } end;

var Form1: TForm1; valor1 : real; valor2 : real; funcao : integer;

implementation
Vamos partir agora para a configuração dos botões.

Listagem 2: Vamos por o seguinte código nos botões de 0 a 9

procedure TForm1.umClick(Sender: TObject); begin visor.Text := visor.Text + (Sender as TSpeedButton).Caption end; Observação: Basta fazer isso no evento OnClick de um único botão. Depois, selecionar todos os demais botões numéricos e, no Objetct Inspector, na aba Events, selecionar o método criado para o evento OnClick dos botões selecionados.

Já configuramos os botões numéricos, vamos então configurar agora os botões das operações, virgula e o limpar.

Listagem 3: Evento OnClick do botão mais

procedure TForm1.maisClick(Sender: TObject); begin valor1 := StrToFloat(visor.Text); visor.Text := ''; funcao := 1; end; Listagem 4: Evento OnClick do botão menos

procedure TForm1.menosClick(Sender: TObject); begin valor1 := StrToFloat(visor.Text); visor.Text := ''; funcao := 2; end; Listagem 5: Evento OnClick do botão Dividir

procedure TForm1.dividirClick(Sender: TObject); begin valor1 := StrToFloat(visor.Text); visor.Text := ''; funcao := 3; end; Listagem 6: Evento OnClick do botão Multiplicar

procedure TForm1.multiplicarClick(Sender: TObject); begin valor1 := StrToFloat(visor.Text); visor.Text := ''; funcao := 4; end; Listagem 7: Evento OnClick do botão “Mais ou Menos”

procedure TForm1.meisoumenosClick(Sender: TObject); begin visor.Text:='-'+visor.Text; end; Listagem 8: Evento OnClick do botão Vírrgula

procedure TForm1.menosClick(Sender: TObject); begin valor1 := StrToFloat(visor.Text); visor.Text := ''; funcao := 2; end; Listagem 9: Evento OnClick do botão limpar

procedure TForm1.cClick(Sender: TObject); begin visor.Text:='';