unit jisuanqiU; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm) 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; Panel1: TPanel; Edit1: TEdit; Button17: TButton; Button16: TButton; Button18: 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 Button12Click(Sender: TObject); procedure Button13Click(Sender: TObject); procedure Button14Click(Sender: TObject); procedure Button15Click(Sender: TObject); procedure Button17Click(Sender: TObject); procedure Button16Click(Sender: TObject); procedure Button11Click(Sender: TObject); procedure FormShow(Sender: TObject); procedure Button18Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; // num,num1,num2:integer; s,j,i,s_number,s_type,s_characterlast:string; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin if s_type=''''1'''' then begin edit1.Text:=edit1.Text+''''1''''; s:=''''123''''; end else begin edit1.text:=''''''''; edit1.text:=edit1.Text+''''1''''; s_type:=''''1''''; end; end; procedure TForm1.Button2Click(Sender: TObject); begin if s_type=''''1'''' then begin edit1.Text:=edit1.Text+''''2''''; s:=''''123''''; end else begin edit1.text:=''''''''; edit1.text:=edit1.Text+''''2''''; s_type:=''''1''''; end; end; procedure TForm1.Button3Click(Sender: TObject); begin if s_type=''''1'''' then begin edit1.Text:=edit1.Text+''''3''''; s:=''''123''''; end else begin edit1.text:=''''''''; edit1.text:=edit1.Text+''''3''''; s_type:=''''1''''; end;; end; procedure TForm1.Button4Click(Sender: TObject); begin if s_type=''''1'''' then begin edit1.Text:=edit1.Text+''''4''''; s:=''''123''''; end else begin edit1.text:=''''''''; edit1.text:=edit1.Text+''''4''''; s_type:=''''1''''; end; end; procedure TForm1.Button5Click(Sender: TObject); begin if s_type=''''1'''' then begin edit1.Text:=edit1.Text+''''5''''; s:=''''123''''; end else begin edit1.text:=''''''''; edit1.text:=edit1.Text+''''5''''; s_type:=''''1''''; end; end; procedure TForm1.Button6Click(Sender: TObject); begin if s_type=''''1'''' then begin edit1.Text:=edit1.Text+''''6''''; s:=''''123''''; end else begin edit1.text:=''''''''; edit1.text:=edit1.Text+''''6''''; s_type:=''''1''''; end; end; procedure TForm1.Button7Click(Sender: TObject); begin if s_type=''''1'''' then begin edit1.Text:=edit1.Text+''''7''''; s:=''''123''''; end else begin edit1.text:=''''''''; edit1.text:=edit1.Text+''''7''''; s_type:=''''1''''; end; end; procedure TForm1.Button8Click(Sender: TObject); begin if s_type=''''1'''' then begin edit1.Text:=edit1.Text+''''8''''; s:=''''123''''; end else begin edit1.text:=''''''''; edit1.text:=edit1.Text+''''8''''; s_type:=''''1''''; end; end; procedure TForm1.Button9Click(Sender: TObject); begin if s_type=''''1'''' then begin edit1.Text:=edit1.Text+''''9''''; s:=''''123''''; end else begin edit1.text:=''''''''; edit1.text:=edit1.Text+''''9''''; s_type:=''''1''''; end; end; procedure TForm1.Button10Click(Sender: TObject); begin if s_type=''''1'''' then begin edit1.Text:=edit1.Text+''''0''''; s:=''''123''''; end else begin edit1.text:=''''''''; edit1.text:=edit1.Text+''''0''''; s_type:=''''1''''; end; end; procedure TForm1.Button12Click(Sender: TObject); begin s_type:=''''0''''; if s='''''''' then application.MessageBox(''''请先输入数字'''',''''提示:'''',0) else if i<>'''''''' then begin if s_characterlast=''''X'''' then begin edit1.Text:=floattostr(strtofloat(s_number) * strtofloat(edit1.Text )); s_number:=edit1.text; s_characterlast:=''''+''''; i:=''''''''; end; if s_characterlast=''''+'''' then begin edit1.Text:=floattostr(strtofloat(s_number) + strtofloat(edit1.Text )); s_number:=edit1.text; s_characterlast:=''''+''''; i:=''''''''; end; if s_characterlast=''''-'''' then begin edit1.Text:=floattostr(strtofloat(s_number) - strtofloat(edit1.Text )); s_number:=edit1.text; s_characterlast:=''''+''''; i:=''''''''; end; if s_characterlast=''''/'''' then begin edit1.Text:=floattostr(strtofloat(s_number) / strtofloat(edit1.Text )); s_number:=edit1.text; s_characterlast:=''''+''''; i:=''''''''; end; end //**************// else begin s_characterlast:=''''+''''; s_number:=edit1.Text; i:=''''8567''''; end; j:=''''3432''''; end; procedure TForm1.Button13Click(Sender: TObject); begin s_type:=''''0''''; if s='''''''' then application.MessageBox(''''请先输入数字'''',''''提示:'''',0) else if i<>'''''''' then begin if s_characterlast=''''X'''' then begin edit1.Text:=floattostr(strtofloat(s_number) * strtofloat(edit1.Text )); s_number:=edit1.text; s_characterlast:=''''-''''; i:=''''''''; &n [1] [2] [3] 下一页 没有相关教程
|