Calculadora...

[plikts]

OI!!

Eu fiz uma calculadora simples assim:

procedure TfrmCalc.btnIgualClick(Sender: TObject);
var
Valor1, Valor2: Real;
begin
Valor1:=StrToFloat(edtNum1.Text);
Valor2:=StrToFloat(edtNum2.Text);
edtNum3.Text:=FloatToStr(Valor1*Valor2);
end;

procedure TfrmCalc.btnLimparClick(Sender: TObject);
begin
edtNum1.Text:='';
edtNum2.Text:='';
edtNum3.Text:='';
edtNum1.SetFocus;
end;
procedure TfrmCalc.btnFecharClick(Sender: TObject);
begin
close;
end;

end.

eu gostaria de saber como eu faço por exemplo para q em soment em um edit eu possa colocar o primeiro numero, depois clicar em um botão de operação, limpar, digitar outro numero no mesmo edit e depois clicar em "=" e aparecer no mesmo edit a resposta??? como a calculadora do Windows ou qualquer outra normal.

Obrigado!

[Kikonanet]

Olá,

Segue um exemplo básico

var
  Form1: TForm1;
  Calc: Real;
  Funcao: string;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
 Edit1.Text:= Edit1.Text + '1';
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
 Edit1.Text:= Edit1.Text + '2';
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
 Edit1.Text:= Edit1.Text + '3';
end;

procedure TForm1.ButtonSomaClick(Sender: TObject);
begin
 Calc:=StrToFloat(Edit1.Text);
 Funcao:='+';
 Edit1.Text:='';
end;

procedure TForm1.ButtonIgualClick(Sender: TObject);
begin
 if Funcao = '+' then
  Calc:=Calc + StrToFloat(Edit1.Text);
 if Funcao = '/' then
  Calc:=Calc / StrToFloat(Edit1.Text);
 Edit1.Text:=FloatToStr(Calc)
end;

procedure TForm1.ButtonDivisaoClick(Sender: TObject);
begin
 Calc:=StrToFloat(Edit1.Text);
 Funcao:='/';
 Edit1.Text:='';
end;

qualquer coisa posta ae.

Abs.

Kiko

[plikts]

valeu, obrigado!!