emp2 := Edit1.Text; end; procedure TForm1.Button3Click(Sender: TObject); begin if Clkd = true then begin Edit1.Text := ''; Clkd := false; if Edit1.Text = '' then Edit1.Text := '9' else Edit1.Text := Edit1.Text + '9'; end else if ClkJ =true then Edit1.Text := Edit1.Text + '9' else Edit1.Text := '9'; ClkJ := true; Temp2 := Edit1.Text; end; procedure TForm1.Button14Click(Sender: TObject); begin if Clkd = true then begin Edit1.Text := ''; Clkd := false; if Edit1.Text = '' then Edit1.Text := '.'
else Edit1.Text := Edit1.Text + '.'; end else if ClkJ =true then Edit1.Text := Edit1.Text + '.' else Edit1.Text := '.'; ClkJ := true; Temp2 := Edit1.Text; end; procedure TForm1.Button4Click(Sender: TObject); begin n := 1; //加法运算符号 Temp1 := Edit1.Text; Edit1.clear; end; procedure TForm1.Button8Click(Sender: TObject); begin n := 2; Temp1 := Edit1.Text; Edit1.Clear; end; procedure TForm1.Button12Click(Sender: TObject); begin n := 3; Temp1 := Edit1.Text; Edit1.Clear; end; procedure TForm1.Button16Click(Sender: TObject); begin n := 4; Temp1 := Edit1.Text; Edit1.Clear; end; procedure TForm1.Button17Click(Sender: TObject); begin Edit1.clear;
//减法运算符号
//乘法运算符号
//除法运算符号
//清空上次运行的数据
end;
procedure TForm1.Button18Click(Sender: TObject); begin Form1.close; end;
procedure TForm1.Button15Click(Sender: TObject); //加减乘除运算过程 begin case n of 1: Temp1 := FloatToStr(StrToFloat(Temp1) + StrToFloat(Temp2)); 2: Temp1 := FloatToStr(StrToFloat(Temp1) - StrToFloat(Temp2)); 3: Temp1 := FloatToStr(StrToFloat(Temp1) * StrToFloat(Temp2)); 4: if StrToFloat(Edit1.Text) = 0 then begin Temp1 := '除法运算中,除数不能为 0'; exit; end else Temp1 := FloatToStr(StrToFloat(Temp1) / StrToFloat(Temp2)) //Edit1.Text := Result; // else //Edit1.Text := Temp1; end; Edit1.Text := Temp1; Clkd := true; end; end.