用delphi7如何写一个计算器啊

最新推荐文章于 2023-08-18 11:59:32 发布
最新推荐文章于 2023-08-18 11:59:32 发布
阅读量1.5k 收藏
点赞数
文章标签： delphi
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/guoer911/article/details/1332163
版权

我是个DELPHI7的初学者啊

求助好心的高手告诉我啊

谢谢了啊

guoer911
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
利用delphi写一个实现基本功能的计算器
qq_38599923的博客
12-23 939
利用delphi写一个实现基本功能的计算器 本人入职期间需要写软件，经过一周的学习的研究，写了一个delphi的计算器，之前从未接触过delphi，所以完全自学，之后一大堆bug，今天终于改完啦，从学习到完成，历时6天左右。 废话不说，直接怼代码 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes,...
Delphi编辑简单计算器
Francis的博客
11-14 4552
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) edt1: TEdit; btn1: TButton; btn
用delphi写的计算器
02-09
用delphi写的简单计算器，包含所有代码。放在Delphi7中即可使用
delphi7 制作的计算器
04-01
delphi7 制作的计算器，里面很多计算公式代码供初学者参考参考
delphi 计算器（含全部代码）
11-26
用于DELPHI初学者的演示程序，包括算法、背景图片、背景颜色的设置，同时也包含了对小数点位数的控制，具有开关灯的功能，字符串换算类型转变等的实例，在DELPHI 10.1中调试通过
Delphi 计算器
weixin_42528089的博客
11-16 541
 计算器V1: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm) Edit1: TEdit; E...
程序员成长之旅——Delphi实现一个简单的科学计算器
wuweiwuju___的博客
07-08 1312
程序员成长之旅——Delphi实现一个简单的科学计算器目标效果组件以及开发环境最终呈现源码GITHUB 目标效果 组件以及开发环境 delphi7版本及以上，这里我用delphi10.4进行的练习，并且只用了edit和button两个组件进行的简单的科学计算器的实现。 最终呈现 当然这是作为初学者简单的为了更快速的了解这门语言而进行的练习，它还有很多功能有待完善，有兴趣的小伙伴可以一起来探索实现一下。 源码GITHUB https://github.com/wuweiwuju/Delphi/tree/m
delphi7 计算器
01-10
delphi 7编写的计算器程序，带连加，连减，连乘，连除，开平方根及平方功能，不过在进行连续单一运算后要改变运算操作前，必须按下等号，否则会出错（举个例子连加后如果要进行减法运算，在进行减法运算前，必须按下...
自己写的一个delphi程序(分红利率计算器)
05-29
自己写的一个delphi程序(分红利率计算器)，功能是输入姓名，存款金额，以及存期。计算预分红，并通过打印输出。注：由于打印功能没有实现好，所以就把资源分数降低成3分了。供初学者学习，有经验志同道合的朋友可以...
计算器-delphi7 源代码
03-08
计算器-delphi7
用delphi编写的简单计算器
05-19
用delphi的一些简单语句编的简单计算器，实现加、减、乘、除功能。如有不足之处敬请指教！
delphi计算器
07-14
用delphi做的计算器。unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Scr: TLabel; Button1: TButton; Button2: TButton; Button3: TButton; Button4: TButton; Button5: TButton; Button6: TButton; Button7: TButton; Button8: TButton; Button9: TButton; Button10: TButton; Button11: TButton; Button12: TButton; Button13: TButton; Button14: TButton; Button15: TButton; Button16: TButton; Button17: TButton; Button18: TButton; Button19: TButton; Button20: TButton; procedure Button1Click(Sender: TObject); procedure Button12Click(Sender: TObject); procedure FormCreate(Sender: TObject); procedure Button11Click(Sender: TObject); procedure Button13Click(Sender: TObject); procedure Button20Click(Sender: TObject); procedure Button19Click(Sender: TObject); procedure Button18Click(Sender: TObject); private { Private declarations } pnt,er,fb:boolean; fstnm:Extended; fbcaption:string; public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var temp:string; begin if er then exit; if pnt then scr.Caption:=scr.Caption+(sender as Tbutton).Caption else if (scr.Caption='0.') or fb then begin scr.Caption:=(sender as Tbutton).caption+'.'; fb:=false; end else begin temp:=scr.Caption; insert((sender as Tbutton).Caption,temp,length(temp)); scr.Caption:=temp; end; end; procedure TForm1.Button12Click(Sender: TObject); var temp:string; begin if er then exit; if scr.Caption<>'0.' then if pos('-',scr.Caption)>0 then begin temp:=scr.Caption; delete(temp,1,1); scr.Caption:=temp; end else scr.Caption:='-'+scr.Caption; end; procedure TForm1.FormCreate(Sender: TObject); begin pnt:=false; fstnm:=0; fb:=false; fbcaption:=''; er:=false; end; procedure TForm1.Button11Click(Sender: TObject); begin if er then exit; pnt:=true; end; procedure TForm1.Button13Click(Sender: TObject); begin if er then exit; if not fb then button20click(nil); if er then exit; fstnm:=strtofloat(scr.Caption); fbcaption:=(sender as Tbutton).Caption; fb:=true; pnt:=false; end; procedure TForm1.Button20Click(Sender: TObject); begin if er then exit; if fbcaption='+' then begin scr.Caption:=floattostr(strtofloat(scr.Caption)+fstnm); end; if fbcaption='-' then begin scr.Caption:=floattostr(fstnm-strtofloat(scr.Caption)); end; if fbcaption='*' then begin scr.Caption:=floattostr(strtofloat(scr.Caption)*fstnm); end; if fbcaption='/' then begin if scr.Caption<>'0.' then scr.Caption:=floattostr(fstnm/strtofloat(scr.Caption)) else begin scr.Caption:='zero divid error!'; er:=true; end; end; if pos('.',scr.caption)=0 then scr.Caption:=scr.Caption+'.'; fb:=true; pnt:=false; fbcaption:=''; end; procedure TForm1.Button19Click(Sender: TObject); begin pnt:=false; fstnm:=0; fb:=false; fbcaption:=''; er:=false; scr.Caption:='0.'; end; procedure TForm1.Button18Click(Sender: TObject); begin if er then exit; scr.Caption:='0.'; end; end.
Delphi编写的简易计算器（含源码）
09-24
Delphi编写的简易计算器,仿windows里的计算器，包括加减乘除等操作。欢迎各位爱好者共同探讨。共同进步！
delphi编写 计算器
06-02
delphi编写的简单计算器，仅针对于初学者作参考。
aab.rar_delphi calculator_delphi 计算器_计算器_计算器 Delphi
09-24
Delphi计算器应用通常包含以下关键组成部分： 1. **用户界面（UI）**：Delphi以其可视化组件库(VCL)著称，开发者可以通过拖放组件来构建用户界面。在这个计算器中，我们可以预期看到数字按钮、运算符按钮、显示屏幕...
Delphi实现简单的计算器
最新发布
m0_58498198的博客
08-18 548
每创建一个窗体，Delphi 会在单元中自动建立一个新的数据类型--类(class)在单元的界面区中可以声明许多不同的元素，包括过程、函数、全程变量及数据类型。这些外部单元中定义了你需要引用的数据类型，如自定义窗体内所用的控件。//实现区 存放界面的实现代码及外部不可见的声明。//进行多轮计算时，先把前面一轮的计算结果输出。//未进行计算时，直接返回输入框中现有的值。//界面区 用于声明其它单元能看到的部分。//输入为多个0时，只显示一个0。//消除数字前面的0。//进行两个数的计算。
Delphi7计算器
12-16
刚学的Delphi，随便写的一下，感觉还行，算算简单的东西还行，希望能得到支持。
Delphi7 计算器源码
09-12
Delphi7开发的计算器，支持表达式计算和标准计算（Windows XP计算器的计算方式）两种模式，测试通过考核，没有bug
用Delphi写一个计算器
03-25
不过，我可以提供一个简单的计算器的实现思路。 1. 创建一个新的Delphi窗体项目，按照常见的窗体设计，在界面上添加一个文本框TextBox和多个按钮Button用于输入和输出。 2. 在点击数字和符号按钮时，将按钮上的...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值