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

最新推荐文章于 2023-08-18 11:59:32 发布
原创 最新推荐文章于 2023-08-18 11:59:32 发布 · 1k 阅读 · 1 ·
CC 4.0 BY-SA版权
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
文章标签：

#delphi

本文作者分享了自己入职期间自学Delphi，并成功编写出一个基础计算器的过程，从零开始，历经6天解决各种问题。文章包含计算器的简单UI设计及部分核心代码实现。

利用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):Double;
end;
var
Form1:TForm1;
info:calculate; //定义一个对象
oldinfo:string; //字符串
Sum:Double=0.0; //总数
Buf:Double=0.0; //临时存储单元
flag:Integer=0; //控制变量，判断第一次
m:Integer; //强转sum
n:Integer; //强转被余数
times1:Integer=0; //控制变量
t:Integer=0; //控制变量 1
implementation //执行

{$R *.dfm}

procedure TForm1.Button17Click(Sender:TObject);
begin
oldinfo:=’’;
SetEditText(’’); //显示栏1
SetEditText1(’’); //显示栏2
info.sign:=’’; //符号变量 + - * /
info.t1:=0;
info.t2:=0;
flag:=0;
Sum:=0;
times1:=0;
t:=0;

end;

procedure TForm1.Button2Click(Sender:TObject);

begin
SetEditText(‘2’);
Edit2.Text:=Edit2.Text+‘2’;
info.t1:=StrToFloat(Edit1.Text);
end;
procedure TForm1.Button3Click(Sender:TObject);
begin
SetEditText(‘3’);

     Edit2.Text:=Edit2.Text+'3' ;
     info.t1:=StrToFloat(Edit1.Text);

end;
procedure TForm1.Button4Click(Sender:TObject);
begin
SetEditText(‘4’);

     Edit2.Text:=Edit2.Text+'4' ;
     info.t1:=StrToFloat(Edit1.Text);

end;
procedure TForm1.Button5Click(Sender:TObject);
begin
SetEditText(‘5’);

     Edit2.Text:=Edit2.Text+'5' ;
     info.t1:=StrToFloat(Edit1.Text);

end;

procedure TForm1.Button6Click(Sender:TObject);
begin
SetEditText(‘6’);
Edit2.Text:=Edit2.Text+‘6’ ;
info.t1:=StrToFloat(Edit1.Text);
end;
procedure TForm1.Button7Click(Sender:TObject);
begin
SetEditText(‘7’);
Edit2.Text:=Edit2.Text+‘7’ ;
info.t1:=StrToFloat(Edit1.Text);
end;
procedure TForm1.Button8Click(Sender:TObject);
begin
SetEditText(‘8’);
Edit2.Text:=Edit2.Text+‘8’ ;
info.t1:=StrToFloat(Edit1.Text);
end;
procedure TForm1.Button9Click(Sender:TObject);
begin
SetEditText(‘9’);
Edit2.Text:=Edit2.Text+‘9’ ;
info.t1:=StrToFloat(Edit1.Text);
end;
procedure TForm1.Button10Click(Sender:TObject);
begin
SetEditText(‘0’);
Edit2.Text:=Edit2.Text+‘0’ ;
info.t1:=StrToFloat(Edit1.Text);
end;

procedure TForm1.btnPointClick(Sender:TObject);
begin
  SetEditText('.');
  Edit2.Text:=Edit2.Text+'.' ;
  info.t1:=StrToFloat(Edit1.Text);
end;

procedure TForm1.Button1Click(Sender:TObject);

begin
SetEditText(‘1’);
Edit2.Text:=Edit2.Text+‘1’;
info.t1:=StrToFloat(Edit1.Text);

end;
procedure TForm1.btnAdd1Click(Sender:TObject);
begin
//判断上一位并计算，如10-3+2，在这边首先执行10-3的计算，在进行+3操作
if(info.sign=’+’) then
begin
Sum:=Sum+StrToFloat(Edit1.Text);
t:=1;
end;
if(info.sign=’-’) then
begin
Sum:=Sum-StrToFloat(Edit1.Text);
t:=1;
end;
if(info.sign=’’) then
begin
Sum:=SumStrToFloat(Edit1.Text);
t:=1;
end;
if(info.sign=’/’) then
begin
Sum:=Sum/StrToFloat(Edit1.Text);
t:=1;
end;
if(info.sign=’%’) then
begin
m:=Integer(Trunc(Sum)); //将结果强转，因为余数不能有小数
n:=Integer(Trunc(StrToFloat(Edit1.Text)));
Sum:=m mod n;
t:=1;
end;

       times1:=times1+1;                      //每次执行，次数加一
   if(times1=1)  then
   begin
       Sum:=StrToFloat(Edit2.Text);
   end;
       Edit2.Text:=Edit2.Text+'+';
       info.sign:='+';
   if(info.sign='+') and (times1>1)  and (t=0)then
   begin
       Sum:=Sum+StrToFloat(Edit1.Text);
       t:=1;
   end;

  oldinfo:='';                              //符号位置空

end;

procedure TForm1.btnSub1Click(Sender:TObject);

begin
if(info.sign=’-’) then
begin
Sum:=Sum-StrToFloat(Edit1.Text);
t:=1;
end;
if(info.sign=’+’) then
begin
Sum:=Sum+StrToFloat(Edit1.Text);
t:=1;
end;
if(info.sign=’’) then
begin
Sum:=SumStrToFloat(Edit1.Text);
t:=1;
end;
if(info.sign=’/’) then
begin
Sum:=Sum/StrToFloat(Edit1.Text);
t:=1;
end;
if(info.sign=’%’) then
begin
m:=Integer(Trunc(Sum));
n:=Integer(Trunc(StrToFloat(Edit1.Text)));
Sum:=m mod n;
t:=1;
end;

   times1:=times1+1;
   if(times1=1)  then
   begin
       Sum:=StrToFloat(Edit2.Text);
   end;
       Edit2.Text:=Edit2.Text+'-';
       info.sign:='-';
   if(info.sign='-') and (times1>1)  and (t=0)then
   begin
      Sum:=Sum-StrToFloat(Edit1.Text);
      t:=1;
   end;
   oldinfo:='';                            //符号位置空

end;
procedure TForm1.btnMul1Click(Sender:TObject);
begin
if(info.sign=’’) then
begin
Sum:=SumStrToFloat(Edit1.Text);
t:=1;
end;
if(info.sign=’+’) then
begin
Sum:=Sum+StrToFloat(Edit1.Text);
t:=1;
end;
if(info.sign=’-’) then
begin
Sum:=Sum-StrToFloat(Edit1.Text);
t:=1;
end;
if(info.sign=’/’) then
begin
Sum:=Sum/StrToFloat(Edit1.Text);
t:=1;
end;
if(info.sign=’%’) then
begin
m:=Integer(Trunc(Sum));
n:=Integer(Trunc(StrToFloat(Edit1.Text)));
Sum:=m mod n;
t:=1;
end;

   times1:=times1+1;
   if(times1=1)  then
   begin
       Sum:=StrToFloat(Edit2.Text);
   end;
       Edit2.Text:=Edit2.Text+'*';
       info.sign:='*';
   if(info.sign='*') and (times1>1)  and (t=0)then
   begin
       Sum:=Sum*StrToFloat(Edit1.Text);
       t:=1;
   end;
   oldinfo:='';

end;
procedure TForm1.btnDeviClick(Sender:TObject);
begin
// btnEqualClick(nil); //nil为参数，那么在相应的事件中就判断不出谁是触发事件
if(info.sign=’/’) then
begin
Sum:=Sum/StrToFloat(Edit1.Text);
t:=1;
end;
if(info.sign=’+’) then
begin
Sum:=Sum+StrToFloat(Edit1.Text);
t:=1;
end;
if(info.sign=’’) then
begin
Sum:=SumStrToFloat(Edit1.Text);
t:=1;
end;
if(info.sign=’-’) then
begin
Sum:=Sum-StrToFloat(Edit1.Text);
t:=1;
end;
if(info.sign=’%’) then
begin
m:=Integer(Trunc(Sum));
n:=Integer(Trunc(StrToFloat(Edit1.Text)));
Sum:=m mod n;
t:=1;
end;

   times1:=times1+1;
   if(times1=1)  then
   begin
       Sum:=StrToFloat(Edit2.Text);
   end;
       Edit2.Text:=Edit2.Text+'/';
       info.sign:='/';
   if(info.sign='/') and (times1>1)  and (t=0)then
   begin
       Sum:=Sum+StrToFloat(Edit1.Text);
       t:=1;
   end;

   oldinfo:='';

end;

 procedure TForm1.btnRestClick(Sender:TObject);

begin
if(info.sign=’/’) then
begin
Sum:=Sum/StrToFloat(Edit1.Text);
t:=1;
end;
if(info.sign=’+’) then
begin
Sum:=Sum+StrToFloat(Edit1.Text);
t:=1;
end;
if(info.sign=’’) then
begin
Sum:=SumStrToFloat(Edit1.Text);
t:=1;
end;
if(info.sign=’-’) then
begin
Sum:=Sum-StrToFloat(Edit1.Text);
t:=1;
end;
if(info.sign=’%’) then
begin
m:=Integer(Trunc(Sum));
n:=Integer(Trunc(StrToFloat(Edit1.Text)));
Sum:=m mod n;
t:=1;
end;

   times1:=times1+1;
   if(times1=1)  then
   begin
       Sum:=StrToFloat(Edit2.Text);
   end;
       Edit2.Text:=Edit2.Text+'%';
       info.sign:='%';
   if(info.sign='%') and (times1>1)  and (t=0)then
   begin
       Sum:=Sum+StrToFloat(Edit1.Text);
       t:=1;
   end;
   oldinfo:='';

end;

 procedure TForm1.btnEqualClick(Sender:TObject);
 begin
   times1:=0;                //次数初始化
   if info.sign<>'' then oldinfo:='';

   if(info.sign='+')       then
   //SetEditText1(FloatToStr(info.Add(info.t2,info.t1)))
   begin
       Sum:=Sum+StrToFloat(Edit1.Text);    //Sum=Sum+新输入的值，下同
       SetEditText1(FloatToStr(Sum));
       flag:=1;
       t:=0;
       times1:=0
   end


   else  if(info.sign='-') then
   //SetEditText1(FloatToStr(info.Sub(info.t2,info.t1)))
     begin

       Sum:=Sum-StrToFloat(Edit1.Text);
       SetEditText1(FloatToStr(Sum));
       flag:=1;
       t:=0;
       times1:=0
   end


   else if(info.sign='*')  then
   //SetEditText1(FloatToStr(info.Mul(info.t2,info.t1)))
   begin
       Sum:=Sum*StrToFloat(Edit1.Text);
       SetEditText1(FloatToStr(Sum));
       flag:=1;
       t:=0;
       times1:=0
   end


   else if(info.sign='/')  then
   //SetEditText1(FloatToStr(info.Dive(info.t2,info.t1)))
   begin
   if(StrToFloat(Edit1.Text)=0)
   then begin
        Form1.Edit1.text:='0';
        ShowMessage('除数分母不能为0');
   end
   else begin
       Sum:=Sum/StrToFloat(Edit1.Text);
       SetEditText1(FloatToStr(Sum));
       flag:=1;
       t:=0;
       times1:=0
   end;
   end

   else if(info.sign='%')  then
   begin
       m:=Integer(Trunc(Sum));
       n:=Integer(Trunc(StrToFloat(Edit1.Text)));
   if(n=0)
   then begin
       Form1.Edit1.text:='0';
       ShowMessage('除数分母不能为0');
   end
   else begin
       Sum:=m mod n;
       SetEditText1(FloatToStr(Sum));
       flag:=1;
       t:=0;
       times1:=0
   end;

    end;
   //SetEditText1(FloatToStr(info.Rest(info.t2,info.t1)));

 if Edit1.Text<>'' then
     info.t1:=StrToFloat(Edit1.Text);
     info.sign:='';
 end;

procedure TForm1.SetText(info:string);
begin
Edit2.Text:=Edit2.Text+Edit1.Text;
end;

 procedure TForm1.SetEditText(info:string);

begin
Edit1.Text :=oldinfo + info;
oldinfo := Edit1.Text;
end;
procedure TForm1.SetEditText1(info:string);
begin
Edit2.Text :=oldinfo + info;
oldinfo := Edit2.Text;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
oldinfo := ‘’;
end;

end.

遇到不理解或者不懂的，欢迎加我vx讨论：m88181

qq_38599923
关注
Delphi 计算器
weixin_42528089的博客
11-16 627
 计算器V1: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm) Edit1: TEdit; E...
用Delphi做简易计算器
05-11
delphi课程实验之一，只实现了简单的运算符，有兴趣的童鞋可以在此基础上进一步增强计算器的功能。
用delphi写的计算器
02-09
用delphi写的简单计算器，包含所有代码。放在Delphi7中即可使用
用delphi编写的简单计算器
05-19
用delphi的一些简单语句编的简单计算器，实现加、减、乘、除功能。如有不足之处敬请指教！
Delphi实现简单的计算器
m0_58498198的博客
08-18 789
每创建一个窗体，Delphi 会在单元中自动建立一个新的数据类型--类(class)在单元的界面区中可以声明许多不同的元素，包括过程、函数、全程变量及数据类型。这些外部单元中定义了你需要引用的数据类型，如自定义窗体内所用的控件。//实现区 存放界面的实现代码及外部不可见的声明。//进行多轮计算时，先把前面一轮的计算结果输出。//未进行计算时，直接返回输入框中现有的值。//界面区 用于声明其它单元能看到的部分。//输入为多个0时，只显示一个0。//消除数字前面的0。//进行两个数的计算。
程序员成长之旅——Delphi实现一个简单的科学计算器
wuweiwuju___的博客
07-08 1536
程序员成长之旅——Delphi实现一个简单的科学计算器目标效果组件以及开发环境最终呈现源码GITHUB 目标效果 组件以及开发环境 delphi7版本及以上，这里我用delphi10.4进行的练习，并且只用了edit和button两个组件进行的简单的科学计算器的实现。 最终呈现 当然这是作为初学者简单的为了更快速的了解这门语言而进行的练习，它还有很多功能有待完善，有兴趣的小伙伴可以一起来探索实现一下。 源码GITHUB https://github.com/wuweiwuju/Delphi/tree/m
Delphi实现基本算术计算器的使用指南
通过以上步骤和知识点的掌握，开发者可以利用Delphi创建一个功能完善的计算器应用程序。这个过程不仅涉及到了界面设计和基础的用户交互，也锻炼了编程逻辑思维和问题解决能力，是学习Delphi编程的一个很好的实践案例...
Delphi开发的简易多功能计算器实现
接着，编写实现计算器逻辑的代码（可能在Unit1.dcu和Unit2.dcu中），并利用Delphi的组件来构建界面。开发完成后，通过Delphi编译器将项目编译成一个可执行文件Project1.exe，最终用户可以通过这个可执行文件运行...
Delphi5实现的基础计算器功能介绍
根据描述，此计算器可以实现基本的算数运算，包括加法、减法、乘法和除法。Delphi中的这些运算可以通过Object Pascal语言的运算符来实现，例如加法用“+”、减法用“-”等。同时，Delphi为各种运算提供了内置的函数...
Delphi编程实现多功能科学计算器源码解析
在了解这份给定文件内容之前，我们需要认识到，文件信息表明了存在一个用Delphi编写的计算器软件项目，其功能丰富，涵盖了科学计算和编程计算的需求，并且提供了源代码。接下来我将详细说明从标题、描述和标签中提取...
Delphi实现基本四则运算计算器
总结以上内容，开发一个使用Delphi编写的加减乘除计算器，涉及到面向对象编程基础、界面设计、事件驱动编程、基础的算术逻辑实现、输入输出处理、错误处理、程序调试以及测试等多方面的技能。掌握这些知识点，对于想...
delphi 计算器（含全部代码）
11-26
用于DELPHI初学者的演示程序，包括算法、背景图片、背景颜色的设置，同时也包含了对小数点位数的控制，具有开关灯的功能，字符串换算类型转变等的实例，在DELPHI 10.1中调试通过
Delphi编写的简易计算器（含源码）
09-24
Delphi编写的简易计算器,仿windows里的计算器，包括加减乘除等操作。欢迎各位爱好者共同探讨。共同进步！
Delphi编写计算器程序
04-22
用Delphi编写一个简易的计算器程序,实现+、-、*、/
delphi编写 计算器
06-02
delphi编写的简单计算器，仅针对于初学者作参考。
用delphi7如何写一个计算器啊
guoer911的专栏
10-12 1580
我是个DELPHI7的初学者啊求助好心的高手告诉我啊谢谢了啊
计算器（delphi）
weixin_30235225的博客
01-25 206
1 unit Unit1; 2 3 interface 4 5 uses 6 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 7 Dialogs, StdCtrls, bsSkinData, BusinessSkinForm, Mask, ...
delphi实现计算器
weixin_34138255的博客
09-18 370
这篇文章是用delphi做了一个简单的计算器,代码如下: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Std...
Delphi做的简单计算器
03-30
这是一个用Delphi做的简易计算器，只支持加、减、乘、除、开方，倒取运算，不识别运算优先级，是一个非常简易的计算器。
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值