初学delphi
2016-03-07 22:24
393 查看
今天女朋友的一门课,要求用delphi 软件编程,内容是一个计算器。当然,这个工作肯定是落在我的头上了。
这个软件是我第一次使用,边自学边进行代码编写,在n多次修改完善之后,终于成形。功能不是很多,跟C#很相似,但发现之前有很多在专业课中没有实现的功能,颇有成就感。
这个软件是我第一次使用,边自学边进行代码编写,在n多次修改完善之后,终于成形。功能不是很多,跟C#很相似,但发现之前有很多在专业课中没有实现的功能,颇有成就感。
unit jisuanqi; //王永维,实现简单的加减乘除计算 interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Edit1: TEdit; 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; 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 Button15Click(Sender: TObject); procedure Button16Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; shu1,shu2:Integer; Shu11,Shu22:String; fuhao:String; shu1changdu,shu2changdu:Integer; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin edit1.Text :=edit1.Text+'1'; end; procedure TForm1.Button2Click(Sender: TObject); begin edit1.Text :=edit1.Text+'2'; end; procedure TForm1.Button3Click(Sender: TObject); begin edit1.Text :=edit1.Text+'3'; end; procedure TForm1.Button4Click(Sender: TObject); begin edit1.Text :=edit1.Text+'4'; end; procedure TForm1.Button5Click(Sender: TObject); begin edit1.Text :=edit1.Text+'5'; end; procedure TForm1.Button6Click(Sender: TObject); begin edit1.Text :=edit1.Text+'6'; end; procedure TForm1.Button7Click(Sender: TObject); begin edit1.Text :=edit1.Text+'7'; end; procedure TForm1.Button8Click(Sender: TObject); begin edit1.Text :=edit1.Text+'8'; end; procedure TForm1.Button9Click(Sender: TObject); begin edit1.Text :=edit1.Text+'9'; end; procedure TForm1.Button10Click(Sender: TObject); begin edit1.Text :=edit1.Text+'0'; end; procedure TForm1.Button11Click(Sender: TObject); begin edit1.Text :=''; end; procedure TForm1.Button12Click(Sender: TObject); begin Shu11:=Edit1.text; shu1changdu:=length(Shu11); shu1:=StrtoInt(Edit1.text); //将字符串转变为整型 edit1.Text :=edit1.Text+'+'; fuhao:='+'; end; procedure TForm1.Button13Click(Sender: TObject); begin Shu11:=Edit1.text; shu1changdu:=length(Shu11); shu1:=StrtoInt(Edit1.text); //将字符串转变为整型 edit1.Text :=edit1.Text+'-'; fuhao:='-'; end; procedure TForm1.Button14Click(Sender: TObject); begin Shu11:=Edit1.text; shu1changdu:=length(Shu11); shu1:=StrtoInt(Edit1.text); //将字符串转变为整型 edit1.Text :=edit1.Text+'*'; fuhao:='*'; end; procedure TForm1.Button15Click(Sender: TObject); begin Shu11:=Edit1.text; shu1changdu:=length(Shu11); shu1:=StrtoInt(Edit1.text); //将字符串转变为整型 edit1.Text :=edit1.Text+'/'; fuhao:='/'; end; procedure TForm1.Button16Click(Sender: TObject); begin Shu22:=Edit1.text; shu2changdu:=length(Shu22); if fuhao='+' then begin Shu22:=copy(Shu22,shu1changdu+2,shu2changdu); //截取出第二个数 shu2:=StrtoInt(Shu22); //将字符串转化为整形 edit1.Text :=InttoStr(shu1+shu2); end; if fuhao='-' then begin Shu22:=copy(Shu22,shu1changdu+2,shu2changdu); //截取出第二个数 shu2:=StrtoInt(Shu22); //将字符串转变为整型 edit1.Text :=InttoStr(shu1-shu2); end; if fuhao='*' then begin Shu22:=copy(Shu22,shu1changdu+2,shu2changdu); //截取出第二个数 shu2:=StrtoInt(Shu22); //将字符串转变为整型 edit1.Text :=InttoStr(shu1*shu2); end; if fuhao='/' then begin Shu22:=copy(Shu22,shu1changdu+2,shu2changdu); //截取出第二个数 shu2:=StrtoInt(Shu22); //将字符串转变为整型 edit1.Text :=InttoStr(shu1 Div shu2); end; fuhao:=''; end; end.
相关文章推荐
- delphi的日志组件log4d的内存泄露问题
- Delphi判断是否有全屏程序
- Delphi 712操作word
- Delphi中编辑word
- Delphi读取Word
- Delphi word 颜色
- delphi 操作 word
- Delphi XE8 安卓摇一摇功能的实现
- Delphi 操作Word怎么控制光标的位置
- delphi ole word
- Delphi Excel FastReport
- Delphi word编辑
- Delphi 操作word 表格
- delphi 设置表格样式。
- delphi通过OLE对word进行单元格合并操作
- Delphi 6常用日期与时间函数
- Delphi常用日期函数
- delphi中Message消息的使用方法
- 现在, Delphi 的多线程已经非常易用了!
- Delphi实现截屏存盘的方法