Delphi实现简单计算机

最新推荐文章于 2024-02-14 10:59:55 发布

無訫、

最新推荐文章于 2024-02-14 10:59:55 发布

阅读量338

点赞数

本文链接：https://blog.csdn.net/m0_47242784/article/details/109766746

版权

本文介绍了如何利用Delphi编程语言实现一个简单的计算器程序。该程序支持连续输入多个数进行运算，但不处理算符优先级，每次运算仅处理两个数，确保计算准确性。

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

注：如果连续输入多个数运算，此程序不考虑算符优先级，可以两个数运算一次，保证计算上的准确。

unit jisuanqi;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, System.StrUtils,
  Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls, Vcl.DBCtrls;
var
  Sub:TStrings;
type
  TForm2 = class(TForm)
    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;
    Edit1: TEdit;
    Button17: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(S