delphi实现计算器

最新推荐文章于 2024-08-01 10:42:41 发布

weixin_33875564

最新推荐文章于 2024-08-01 10:42:41 发布

阅读量2.2k

点赞数 2

原文链接：https://yq.aliyun.com/articles/444093

版权

这篇博客介绍了如何使用Delphi编程语言实现一个简单的计算器。通过创建一个TForm1类，并定义一个Tcompute对象来处理加减乘除运算，博主详细展示了各个按钮事件处理函数的编写，包括数字输入、运算符选择及计算结果展示。文章还包含了一个防止除以零的错误处理机制。

摘要由CSDN通过智能技术生成

这篇文章是用delphi做了一个简单的计算器,代码如下:

unit Unit1;

interface

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

type
    TForm1 = class(TForm)
        Edit1: TEdit;
        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;
        procedure Button4Click(Sender: TObject);
        procedure Button1Click(Sender: TObject);
        procedure Button2Click(Sender: TObject);
        procedure Button3Click(Sender: TObject);
        procedure Button5Click(Sender: TObject);
        procedure Button6Click(Sender: TObject);
        procedure Button7Click(Sender: TObject);
        procedure Button9Click(Sender: TObject);
        procedure Button10Click(Sender: TObject);
        procedure Button11Click(Sender: TObject);
        procedure Button13Click(Sender: TObject);