Delphi程序设计作业——简单计算器
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm_caculator = class(TForm)
Edit1: TEdit;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
Button6: TButton;
Button7: TButton;
Button8: TButton;
Button9: TButton;
Button10: TButton;
Button11: TButton;
Button12: TButton;
Button13: TButton;
Button14: TButton;
Button15: TButton;
Button16: TButton;
Label1: TLabel;
Button17: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject); procedure Button4Click(Sender: TObject); procedure Button5Click(Sender: TObject); procedure Button6Click(Sender: TObject); procedure Button7Click(Sender: TObject); procedure Button8Click(Sender: TObject); procedure Button9Click(Sender: TObject); procedure Button10Click(Sender: TObject); procedure Button11Click(Sender: TObject); procedure Button12Click(Sender: TObject); procedure Button13Click(Sender: TObject); procedure Button14Click(Sender: TObject); procedure Button16Click(Sender: TObject); procedure FormActivate(Sender: TObject); procedure Button15Click(Sender: TObject); procedure Button17Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form_caculator: TForm_caculator; n:integer; implementation {$R *.dfm} procedure TForm_caculator.Button1Click(Sender: TObject); begin
edit1.Text:=edit1.Text+'1';
end;
//数字键“1”代码。
procedure TForm_caculator.Button2Click(Sender: TObject); begin edit1.Text:=edit1.Text+'2' ; end; procedure TForm_caculator.Button3Click(Sender: TObject); begin edit1.Text:=edit1.Text+'3' ; end;
//数字键“2”代码。
//数字键“3”代码。
procedure TForm_caculator.Button4Click(Sender: TObject); begin edit1.Text:=edit1.Text+'4' ; end; procedure TForm_caculator.Button5Click(Sender: TObject); begin edit1.Text:=edit1.Text+'5' ; end; procedure TForm_caculator.Button6Click(Sender: TObject); begin edit1.Text:=edit1.Text+'6' ; end; procedure TForm_caculator.Button7Click(Sender: TObject); begin edit1.Text:=edit1.Text+'7' ; end; procedure TForm_caculator.Button8Click(Sender: TObject); begin edit1.Text:=edit1.Text+'8' ; end; procedure TForm_caculator.Button9Click(Sender: TObject); begin edit1.Text:=edit1.Text+'9' ; end; procedure TForm_caculator.Button10Click(Sender: TObject); begin edit1.Text:=edit1.Text+'0' ; end; procedure TForm_caculator.Button11Click(Sender: TObject); begin edit1.Tag:=strtoint(edit1.text); n:=1 ; edit1.Text:=''; end; procedure TForm_caculator.Button12Click(Sender: TObject); begin edit1.setfocus; //运算键“+”代码。
//数字键“4”代码。
//数字键“5”代码。
//数字键“0”代码。
edit1.Tag:=strtoint(edit1.text); n:=2 ; edit1.Text:=''; end;
edit1.setfocus; //运算键“-”代码。
procedure TForm_caculator.Button13Click(Sender: TObject); begin edit1.Tag:=strtoint(edit1.text); n:=3 ; end; procedure TForm_caculator.Button14Click(Sender: TObject); begin edit1.Tag:=strtoint(edit1.text); n:=4 ; edit1.Text:=''; end; procedure TForm_caculator.Button16Click(Sender: TObject); begin ed