var Form1: TForm1; Temp1 : string; Clkd : boolean = false; ClkJ : boolean = false; Temp2 : string; n : Integer; implementation {$R *.dfm}
//存放数值一和结果 //等号是否被按下过,默认为为按下过 //数字键是否被按下过,默认为未按下过 //存放数值二
procedure TForm1.Button13Click(Sender: TObject); begin if 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); begin if 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); begin if 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 TF
orm1.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; T