calculator.pas

简单易用的计算器 delphi源码

unit Calculator;

interface

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

type
  TFrmCalculator = class(TForm)
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    SpeedButton7: TSpeedButton;
    SpeedButton8: TSpeedButton;
    SpeedButton9: TSpeedButton;
    SpeedButton10: TSpeedButton;
    SpeedButton11: TSpeedButton;
    SpeedButton12: TSpeedButton;
    SpeedButton13: TSpeedButton;
    SpeedButton14: TSpeedButton;
    SpeedButton15: TSpeedButton;
    SpeedButton16: TSpeedButton;
    Edit1: TEdit;
    SpeedButton17: TSpeedButton;
    SpeedButton18: TSpeedButton;
    SpeedButton19: TSpeedButton;
    SpeedButton20: TSpeedButton;
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure SpeedButton9Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure SpeedButton8Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton7Click(Sender: TObject);
    procedure SpeedButton10Click(Sender: TObject);
    procedure SpeedButton11Click(Sender: TObject);
    procedure SpeedButton12Click(Sender: TObject);
    procedure SpeedButton13Click(Sender: TObject);
    procedure SpeedButton14Click(Sender: TObject);
    procedure SpeedButton15Click(Sender: TObject);
    procedure SpeedButton16Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmCalculator: TFrmCalculator;

implementation
uses untJCalc;
{$R *.dfm}

procedure TFrmCalculator.SpeedButton3Click(Sender: TObject);
begin
  Edit1.Text := Edit1.Text+'1';
end;

procedure TFrmCalculator.SpeedButton6Click(Sender: TObject);
begin
  Edit1.Text := Edit1.Text+'2';
end;

procedure TFrmCalculator.SpeedButton9Click(Sender: TObject);
begin
  Edit1.Text := Edit1.Text+'3';
end;

procedure TFrmCalculator.SpeedButton2Click(Sender: TObject);
begin
  Edit1.Text := Edit1.Text+'4';
end;

procedure TFrmCalculator.SpeedButton5Click(Sender: TObject);
begin
  Edit1.Text := Edit1.Text+'5';
end;

procedure TFrmCalculator.SpeedButton8Click(Sender: TObject);
begin
  Edit1.Text := Edit1.Text+'6';
end;

procedure TFrmCalculator.SpeedButton1Click(Sender: TObject);
begin
  Edit1.Text := Edit1.Text+'7';
end;

procedure TFrmCalculator.SpeedButton4Click(Sender: TObject);
begin
  Edit1.Text := Edit1.Text+'8';
end;

procedure TFrmCalculator.SpeedButton7Click(Sender: TObject);
begin
  Edit1.Text := Edit1.Text+'9';
end;

procedure TFrmCalculator.SpeedButton10Click(Sender: TObject);
begin
  Edit1.Text := Edit1.Text+'/';
end;

procedure TFrmCalculator.SpeedButton11Click(Sender: TObject);
begin
  Edit1.Text := Edit1.Text+'*';
end;

procedure TFrmCalculator.SpeedButton12Click(Sender: TObject);
begin
  Edit1.Text := Edit1.Text+'-';
end;

procedure TFrmCalculator.SpeedButton13Click(Sender: TObject);
begin
  Edit1.Text := Edit1.Text+'+';
end;

procedure TFrmCalculator.SpeedButton14Click(Sender: TObject);
begin
  Edit1.Text := Edit1.Text+'0';
end;

procedure TFrmCalculator.SpeedButton15Click(Sender: TObject);
begin
  Edit1.Text := Edit1.Text+'.';
end;

procedure TFrmCalculator.SpeedButton16Click(Sender: TObject);
begin
  Edit1.Text := CalcExpr(Edit1.Text);
end;

procedure TFrmCalculator.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if key = #13 then
    Edit1.Text := CalcExpr(Edit1.Text);
end;

end.