delphi计算器设计代码.doc

var Form1: TForm1; Temp1 : string; /存放数值一和结果 Clkd : boolean = false; /等号是否被按下过，默认为为按下过 ClkJ : boolean = false; /数字键是否被按下过，默认为未按下过 Temp2 : string; /存放数值二 n : Integer;implementation$R *.dfmprocedure TForm1.Button13Click(Sender: TObject);beginif Clkd = true then begin Edit1.Text := ; /如果等号按下过，清空Edit1的内容 Clkd := false; /还原等号状态值 if Edit1.Text = then Edit1.Text := 0 /如果Edit1内容为空，显示0 else Edit1.Text := Edit1.Text + 0; /否则在Edit1内容的后一位显示0 end else if ClkJ =true then /如果等号没有按下过，数字键按下过 Edit1.Text := Edit1.Text + 0 /则在Edit1内容的后一位显示0 else Edit1.Text := 0; /否则Edit1显示0 ClkJ := true; Temp2 := Edit1.Text;end;procedure TForm1.Button9Click(Sender: TObject);beginif Clkd = true then begin Edit1.Text := ; /如果等号按下过，清空Edit1的内容 Clkd := false; /还原等号状态值 if Edit1.Text = then /如果Edit1内容为空，显示1 Edit1.Text := 1 else Edit1.Text := Edit1.Text + 1; /否则在Edit1内容的后一位显示1 end else if ClkJ =true then /如果等号没有按下过，数字键按下过 Edit1.Text := Edit1.Text + 1 else Edit1.Text := 1; ClkJ := true; Temp2 := Edit1.Text;end;procedure TForm1.Button10Click(Sender: TObject);beginif Clkd = true then begin Edit1.Text := ; Clkd := false; if Edit1.Text = then Edit1.Text := 2 else Edit1.Text := Edit1.Text + 2; end else if ClkJ =true then Edit1.Text := Edit1.Text + 2 else Edit1.Text := 2; ClkJ := true; Temp2 := Edit1.Text;end;procedure TForm1.Button11Click(Sender: TObject);begin if Clkd = true then begin Edit1.Text := ; Clkd := false; if Edit1.Text = then Edit1.Text := 3 else Edit1.Text := Edit1.Text + 3; end else if ClkJ =true then Edit1.Text := Edit1.Text + 3 else Edit1.Text := 3; ClkJ := true; Temp2 := Edit1.Text;end;procedure TForm1.Button5Click(Sender: TObject);begin if Clkd = true then begin Edit1.Text := ; Clkd := false; if Edit1.Text = then Edit1.Text := 4 else Edit1.Text := Edit1.Text + 4; end else if ClkJ =true then Edit1.Text := Edit1.Text + 4 else Edit1.Text := 4; ClkJ := true; Temp2 := Edit1.Text;end;procedure TForm1.Button6Click(Sender: TObject);begin if Clkd = true then begin Edit1.Text := ; Clkd := false; if Edit1.Text = then Edit1.Text := 5 else Edit1.Text := Edit1.Text + 5; end else if ClkJ =true then Edit1.Text := Edit1.Text + 5 else Edit1.Text := 5; ClkJ := true; Temp2 := Edit1.Text;end;procedure TForm1.Button7Click(Sender: TObject);begin if Clkd = true then begin Edit1.Text := ; Clkd := false; if Edit1.Text = then Edit1.Text := 6 else Edit1.Text := Edit1.Text + 6; end else if ClkJ =true then Edit1.Text := Edit1.Text + 6 else Edit1.Text := 6; ClkJ := true; Temp2 := Edit1.Text;end;procedure TForm1.Button1Click(Sender: TObject);begin if Clkd = true then begin Edit1.Text := ; Clkd := false; if Edit1.Text = then Edit1.Text := 7 else Edit1.Text := Edit1.Text + 7; end else if ClkJ =true then Edit1.Text := Edit1.Text + 7 else Edit1.Text := 7; ClkJ := true; Temp2 := Edit1.Text;end;procedure TForm1.Button2Click(Sender: TObject);begin if Clkd = true then begin Edit1.Text := ; Clkd := false; if Edit1.Text = then Edit1.Text := 8 else Edit1.Text := Edit1.Text + 8; end else if ClkJ =true then Edit1.Text := Edit1.Text + 8 else Edit1.Text := 8; ClkJ := true; Temp2 := 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); /加减乘除运算过程begincase n of 1: Temp1 := FloatToStr(StrToFloat(Temp1) + StrToFloat(Temp2); 2: Temp1 := FloatToStr(StrToFloat(Temp1) - StrToFloat(Temp2); 3: Temp1 := FloatToStr(StrToFloat(Temp1) * StrToFloat(Temp2); 4: