Question

求delphi编程语句

输入两个实数，通过选择‘+’、‘-’、‘*’，‘/’号进行相应计算，并将结果显示出来。（CASE语句）

Answer 1

procedure TForm1.ComboBox1Change(Sender: TObject);
var
  a:double;
  b:double;
  c:double;
begin
  a := StrToFloat(Edit1.text);
  b := StrToFloat(Edit2.text);
  case ComboBox1.ItemIndex of
  0:  c := a + b;
  1:  c := a - b;
  2:  c := a * b;
  3:  c := a / b;
  end;
  Label1.Caption := FloatToStr(c);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
  ComboBox1.Clear;
  ComboBox1.AddItem('+', ComboBox1);
  ComboBox1.AddItem('-', ComboBox1);
  ComboBox1.AddItem('*', ComboBox1);
  ComboBox1.AddItem('/', ComboBox1);
end;