Delphi 计算器

本是古典何须时尚 2022-04-16 04:07 340阅读 0赞

计算器V1:

unit Unit1;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, StdCtrls, ExtCtrls;
    
    type
      TForm1 = class(TForm)
        Edit1: TEdit;
        Edit2: TEdit;
        Edit3: TEdit;
        Label7: TLabel;
        Label9: TLabel;
        Button1: TButton;
        Button2: TButton;
        Button3: TButton;
        Button4: TButton;
        Button5: TButton;
        Button6: TButton;
        Button7: TButton;
        procedure Button1Click(Sender: TObject);
        procedure Button7Click(Sender: TObject);
        procedure Button2Click(Sender: TObject);
        procedure Button3Click(Sender: TObject);
        procedure Button4Click(Sender: TObject);
        procedure Button5Click(Sender: TObject);
        procedure Button6Click(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;
    
    var
      Form1: TForm1;
    
    implementation
    
    {$R *.dfm}
    
    procedure TForm1.Button1Click(Sender: TObject);
    Var
         temp1,temp2,result:Integer;
    begin
         temp1:=strtoint(Edit1.Text);
         temp2:=strtoint(Edit2.Text);
         result:=temp1+temp2;
         Edit3.Text:=inttostr(result);
    end;
    
    procedure TForm1.Button7Click(Sender: TObject);
    begin
        Edit1.Text:='';
        Edit2.Text:='';
        Edit3.Text:='';
    end;
    
    procedure TForm1.Button2Click(Sender: TObject);
    Var
         temp1,temp2,result:Integer;
    begin
         temp1:=strtoint(Edit1.Text);
         temp2:=strtoint(Edit2.Text);
         result:=temp1-temp2;
         Edit3.Text:=inttostr(result);
    end;
    
    procedure TForm1.Button3Click(Sender: TObject);
    Var
         temp1,temp2,result:Integer;
    begin
         temp1:=strtoint(Edit1.Text);
         temp2:=strtoint(Edit2.Text);
         result:=temp1*temp2;
         Edit3.Text:=inttostr(result);
    end;
    
    procedure TForm1.Button4Click(Sender: TObject);
    Var
         temp1,temp2,result:Integer;
    begin
         temp1:=strtoint(Edit1.Text);
         temp2:=strtoint(Edit2.Text);
         result:=(temp1) div (temp2);
         Edit3.Text:=inttostr(result);
    end;
    
    procedure TForm1.Button5Click(Sender: TObject);
    Var
         temp1,temp2,result:Integer;
    begin
         temp1:=strtoint(Edit1.Text);
         temp2:=strtoint(Edit2.Text);
         result:=(temp1) and (temp2);
         Edit3.Text:=inttostr(result);
    end;
    
    procedure TForm1.Button6Click(Sender: TObject);
    Var
         temp1,temp2,result:Integer;
    begin
         temp1:=strtoint(Edit1.Text);
    
         result:=Not (temp1) ;
         Edit3.Text:=inttostr(result);
    end;
    
    end.

界面如下图所示：

![watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3dlaXhpbl80MjUyODA4OQ_size_16_color_FFFFFF_t_70][]

计算器V2:

[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3dlaXhpbl80MjUyODA4OQ_size_16_color_FFFFFF_t_70]: /images/20220416/a61c464d25954c57a50bc558bec3ba02.png