初学delphi

今天女朋友的一门课，要求用delphi 软件编程，内容是一个计算器。当然，这个工作肯定是落在我的头上了。

这个软件是我第一次使用，边自学边进行代码编写，在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+'';
 end;

 procedure TForm1.Button2Click(Sender: TObject);
 begin
   edit1.Text :=edit1.Text+'';
 end;

 procedure TForm1.Button3Click(Sender: TObject);
 begin
   edit1.Text :=edit1.Text+'';
 end;

 procedure TForm1.Button4Click(Sender: TObject);
 begin
   edit1.Text :=edit1.Text+'';
 end;

 procedure TForm1.Button5Click(Sender: TObject);
 begin
   edit1.Text :=edit1.Text+'';
 end;

 procedure TForm1.Button6Click(Sender: TObject);
 begin
   edit1.Text :=edit1.Text+'';
 end;

 procedure TForm1.Button7Click(Sender: TObject);
 begin
   edit1.Text :=edit1.Text+'';
 end;

 procedure TForm1.Button8Click(Sender: TObject);
 begin
   edit1.Text :=edit1.Text+'';
 end;

 procedure TForm1.Button9Click(Sender: TObject);
 begin
   edit1.Text :=edit1.Text+'';
 end;

 procedure TForm1.Button10Click(Sender: TObject);
 begin
   edit1.Text :=edit1.Text+'';
 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+,shu2changdu); //截取出第二个数
         shu2:=StrtoInt(Shu22);  //将字符串转化为整形
         edit1.Text :=InttoStr(shu1+shu2);
      end;
   if fuhao='-'  then
      begin
         Shu22:=copy(Shu22,shu1changdu+,shu2changdu);   //截取出第二个数
         shu2:=StrtoInt(Shu22);  //将字符串转变为整型
         edit1.Text :=InttoStr(shu1-shu2);
      end;
   if fuhao='*' then
      begin
       Shu22:=copy(Shu22,shu1changdu+,shu2changdu);     //截取出第二个数
       shu2:=StrtoInt(Shu22);  //将字符串转变为整型
       edit1.Text :=InttoStr(shu1*shu2);
      end;
   if fuhao='/'  then
      begin
       Shu22:=copy(Shu22,shu1changdu+,shu2changdu);  //截取出第二个数
       shu2:=StrtoInt(Shu22);  //将字符串转变为整型
       edit1.Text :=InttoStr(shu1 Div shu2);
      end;
   fuhao:='';
 end;

 end.