Delphi 計算器，連續加減乘除問題

procedure TForm1.btnAddClick(Sender: TObject);

begin

Key := 1;

Temp1 := strtofloat(Edit1.text);

Edit1.Clear;

btnEqualClick(Sender);

end;

procedure TForm1.btnMinusClick(Sender: TObject);

begin

Key := 2;

Temp1 := strtofloat(Edit1.Text);

Edit1.Clear;

btnEqualClick(Sender);

end;

procedure TForm1.btnMultClick(Sender: TObject);

begin

Key := 3;

Temp1 := strtofloat(Edit1.Text);

Edit1.Clear;

btnEqualClick(Sender);

end;

procedure TForm1.btnDiveClick(Sender: TObject);

begin

Key := 4;

Temp1 := strtofloat(Edit1.Text);

Edit1.Clear;

btnEqualClick(Sender);

end;

其實，妳這個過程可以大大簡化，方法是：

1、設置加減乘除四個按鈕的屬性tag分別為1～4

2、統壹設置加減乘除的處理過程為Operate

procedure TForm1.Operate(Sender: TObject);

begin

Key := TButton( Sender ).Tag;

Temp1 := strtofloat(Edit1.Text);

Edit1.Clear;

btnEqualClick(Sender);

end;

3、0～9和.的按鈕也同樣可以采用如上分別預設屬性而統壹處理過程的套路

0～9的tag分別為$30～$39，.的tag為$24，統壹過程的內容是Edit1.Text := Edit1.Text + Chr( TButton( Sender ).Tag ) );