delphi实现的加法器.txt

来自「一些重要并且经典的编程实例」· 文本 代码 · 共 55 行

首先建立Project文件，然后再拖三个LAB控件 三个edit控件和一个Button到上面，再就是你要改变那些控件的名字，通过Caption改变！最后就是编程实现，双击Button按钮，编写以下代码：

     先声明变量：

    A,B:Integer;         //定义变量类型为整型

    再实现响应事件：

   A:=StrToInt(Edit1.Text) ;
B:=StrToInt(Edit2.Text) ;
Edit3.Text :=IntToStr(A+B);

       具体的Pascal代码如下：

      unit add;

interface

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

type
TForm1 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
private
    { Private declarations }
public
    { Public declarations }
end;

var
Form1: TForm1;
A,B:Integer;         //定义变量类型为整型
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
A:=StrToInt(Edit1.Text) ;
B:=StrToInt(Edit2.Text) ;
Edit3.Text :=IntToStr(A+B);
end;

end.