delphi制作简易计算器

以下是一个简单的 Delphi 计算器示例:

1. 创建一个新的 Delphi 应用程序项目。
2. 将一个 TEdit 控件用作计算器显示器，并设置其 ReadOnly 属性为 True。
3. 将多个 TButton 控件用作计算器数字和操作符键，并设置它们的 Caption 属性分别为 0~9 和 +、-、*、/、=。
4. 为每个按钮添加 OnClick 事件处理程序。
5. 在事件处理程序中使用 if 语句或 case 语句来确定用户点击的是哪个按钮，并在计算器显示器上显示相应的数字或操作符。
6. 当用户点击等号按钮时，执行相应的计算并将结果显示在计算器显示器上。

以下是示例代码：

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.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;
    procedure ButtonClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  Op1, Op2: Double;
  Operator: Char;

implementation

{$R *.dfm}

procedure TForm1.ButtonClick(Sender: TObject);
var
  Button: TButton;
  Value: string;
begin
  Button := TButton(Sender);
  Value := Button.Caption;
  case Value of
    '0'..'9':
      begin
        Edit1.Text := Edit1.Text + Value;
      end;
    '+', '-', '*', '/':
      begin
        Op1 := StrToFloat(Edit1.Text);
        Operator := Value[1];
        Edit1.Clear;
      end;
    '=':
      begin
        Op2 := StrToFloat(Edit1.Text);
        case Operator of
          '+': Edit1.Text := FloatToStr(Op1 + Op2);
          '-': Edit1.Text := FloatToStr(Op1 - Op2);
          '*': Edit1.Text := FloatToStr(Op1 * Op2);
          '/': Edit1.Text := FloatToStr(Op1 / Op2);
        end;
      end;
  end;
end;

end.

请注意，此示例仅用于演示目的，可能缺少错误处理和其他功能。建议在实际开发中添加这些功能以提高应用程序的稳定性和可靠性。