利用delphi写一个实现基本功能的计算器

利用delphi写一个实现基本功能的计算器

本人入职期间需要写软件，经过一周的学习的研究，写了一个delphi的计算器，之前从未接触过delphi，所以完全自学，之后一大堆bug，今天终于改完啦，从学习到完成，历时6天左右。
废话不说，直接怼代码

---

unit Unit1;

interface

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

type //定义类型
TForm1 = class(TForm)
Button1: TButton; // 1
Button2: TButton; // 2
Button3: TButton;
Button4: TButton; // .
Button5: TButton; // .
Button6: TButton; // .
Button7: TButton;
Button8: TButton;
Button9: TButton;
Button10: TButton;
btnRest: TButton; // %
btnAdd1: TButton; //+
btnSub1: TButton; //-
btnMul1: TButton; //*
btnDevi: TButton; // /

btnEqual: TButton;               //=
btnPoint: TButton;
Button17: TButton;
Edit1: TEdit;                      //文本编辑框1
Edit2: TEdit;                      //文本编辑框2


procedure Button1Click(Sender:TObject);               //1
procedure Button2Click(Sender:TObject);               //2
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);             //0

procedure btnAdd1Click(Sender:TObject);
procedure btnSub1Click(Sender:TObject);
procedure btnMul1Click(Sender:TObject);
procedure btnDeviClick(Sender:TObject);
procedure btnRestClick(Sender:TObject);
procedure btnEqualClick(Sender:TObject);
procedure btnPointClick(Sender:TObject);
procedure Button17Click(Sender:TObject);           //clear
procedure FormCreate(Sender:TObject);              //初始化函数

private
procedure SetEditText(info:string); //自定义显示函数 处理数据
procedure SetEditText1(info:string); //显示结果
procedure SetText(info:string);
{ Private declarations }
public
{ Public declarations }
end;

type
calculate=object //继承object类
private
t1:Double; //定义两个数
t2:Double;
t3:String; //存储字符

x1:Integer;            //xy强转为整数，
y1:Integer;

sign:string;            //标识符 + - / *

public
// function Add(x:Double;y:Double):Double;
// function Sub(x:Double;y:Double):Double;
// function Mul(x:Double;y:Double):Double;
// function Dive(x:Double;y:Double):Double;
// function Rest(x:Double;y:Double