zoukankan      html  css  js  c++  java
  • 虽然很简单,但是我忙活了半个下午,才写出来的小计算器

    图片

    unit Unit1;

    interface

    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, StdCtrls;

    type
      TForm1 = class(TForm)
        Button1: TButton;
        Edit1: TEdit;
        Edit2: TEdit;
        Edit3: TEdit;
        Button2: TButton;
        Button3: TButton;
        Button4: TButton;
        procedure Button1Click(Sender: TObject);
        procedure Button2Click(Sender: TObject);
        procedure Button3Click(Sender: TObject);
        procedure Button4Click(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;

    var
      Form1: TForm1;
      x1 : integer;
      x2 : integer;
      x3 : integer;
      str1 : string;
      str2 : string;
      str3 : string;

    implementation

    {$R *.dfm}

    //+
    procedure TForm1.Button1Click(Sender: TObject);
    begin
      if ( edit1.Text = '' ) OR ( edit2.Text = '' ) then
        messagebox(handle , '输入两个数啊' , '出错' , 0 )
      else
        begin
        str1 := edit1.Text;
        str2 := edit2.Text;
        x1 := strtoint(str1);
        x2 := strtoint(str2);
        x3 := x1 + x2 ;
        str3 := inttostr(x3);
        edit3.Text := str3 ;
        end;
    end;

    //-
    procedure TForm1.Button2Click(Sender: TObject);
    begin
      if ( edit1.Text = '' ) OR ( edit2.Text = '' ) then
        messagebox(handle , '输入两个数啊' , '出错' , 0 )
      else
        begin
        str1 := edit1.Text;
        str2 := edit2.Text;
        x1 := strtoint(str1);
        x2 := strtoint(str2);
        x3 := x1 - x2 ;
        str3 := inttostr(x3);
        edit3.Text := str3 ;
        end;
    end;

    //*
    procedure TForm1.Button3Click(Sender: TObject);
    begin
      if ( edit1.Text = '' ) OR ( edit2.Text = '' ) then
        messagebox(handle , '输入两个数啊' , '出错' , 0 )
      else
        begin
        str1 := edit1.Text;
        str2 := edit2.Text;
        x1 := strtoint(str1);
        x2 := strtoint(str2);
        x3 := x1 * x2 ;
        str3 := inttostr(x3);
        edit3.Text := str3 ;
        end;
    end;

    ///
    procedure TForm1.Button4Click(Sender: TObject);
    begin
      if ( edit1.Text = '' ) OR ( edit2.Text = '' ) then
        messagebox(handle , '输入两个数啊' , '出错' , 0 )
      else
        begin
        str1 := edit1.Text;
        str2 := edit2.Text;
        x1 := strtoint(str1);
        x2 := strtoint(str2);
        x3 := round(x1 / x2) ;
        str3 := inttostr(x3);
        edit3.Text := str3 ;
        end;
    end;

    end.

  • 相关阅读:
    出于安全考虑,office outlook禁止对潜在不安全因素的附件访问,如何解决
    70级圣骑士OK了,纪念下先!
    03.配置putty连接Linux系统,并实现中英文输入输出;配置vnc服务器
    想了解你好有的装备及属性吗,副本及飞行点的位置吗?简单!
    Windows Server 2008 下载、安装、激活
    同事的U盘写保护了!
    重新开始核心编程,Windows的开始
    如何知道某PC接入到交换机的哪个端口上
    DK装备获取线路总结
    Windows Server 2008 评估时间延期
  • 原文地址:https://www.cnblogs.com/suanguade/p/4038255.html
Copyright © 2011-2022 走看看