Delphi实现小计算器源码

//source源码

unit Unit2;

interface

uses

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

type

TForm2 = class(TForm)

soleplate: TPanel;

nu1: TSpeedButton;

nu2: TSpeedButton;

nu3: TSpeedButton;

op1: TSpeedButton;

nu4: TSpeedButton;

op2: TSpeedButton;

nu7: TSpeedButton;

nu8: TSpeedButton;

nu9: TSpeedButton;

display: TPanel;

nu6: TSpeedButton;

nu0: TSpeedButton;

nu10: TSpeedButton;

op5: TSpeedButton;

nu5: TSpeedButton;

op3: TSpeedButton;

op4: TSpeedButton;

procedure FormCreate(Sender: TObject);

procedure nu1Click(Sender: TObject);

procedure op1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

Tign:Word;

a,b:Real;

q:Boolean;

implementation

{$R *.dfm}

procedure TForm2.FormCreate(Sender: TObject);

begin

Tign :=0;

a:=0;b:=0;

q:=False;

end;

procedure TForm2.nu1Click(Sender: TObject);

begin

if Form2.Tag=0 then

display.Caption:=display.Caption+(Sender as TSpeedButton).Caption else begin

if Tag=10 then

display.Caption:='0'

else

display.Caption:=(Sender as TSpeedButton).Caption;

Form2.Tag:=0;

end;

end;

procedure TForm2.op1Click(Sender: TObject);

begin

Form2.Tag:=1;

if q then

begin

a:=StrToFloat(display.Caption);

q:=not q;

end

else

begin

b:=StrToFloat(display.Caption);

case Tign of

0:display.Caption:=Format('%g',[a+b]);

1:display.Caption:=Format('%g',[a-b]);

2:display.Caption:=Format('%g',[a*b]);

3:if b<>0then

display.Caption:=Format('%g',[a/b])

else

begin

ShowMessage('除数不能为0！');

display.Caption;Format('%g',[a]);

q:=False;

end;

4:begin

b:=0;q:=False;

end;

end;

a:=StrToFloat(display.Caption);

end;

Tign:=(Sender as TSpeedButton).Tag;

end;

end.

//------------------------------------------------------------------------------- //form源码

object Form2: TForm2

Left = 0

Top = 0

Caption = #35745#31639#22120

ClientHeight = 442

ClientWidth = 537

Color = clBtnFace

Font.Charset = DEFAULT_CHARSET

Font.Color = clWindowText

Font.Height = -11

https://www.360docs.net/doc/9313867017.html, = 'Tahoma'

Font.Style = []

OldCreateOrder = False

OnCreate = FormCreate

PixelsPerInch = 96

TextHeight = 13

object soleplate: TPanel

Left = 154

Top = 0

Width = 249

Height = 401

TabOrder = 0

object nu1: TSpeedButton

Tag = 1

Left = 32

Top = 96

Width = 23

Height = 22

Caption = '1'

end

object nu2: TSpeedButton Tag = 2

Left = 61

Top = 96

Width = 23

Height = 22

Caption = '2'

OnClick = nu1Click end

object nu3: TSpeedButton Tag = 3

Left = 96

Top = 96

Width = 23

Height = 22

Caption = '3'

OnClick = nu1Click end

object op1: TSpeedButton Left = 136

Top = 96

Width = 23

Height = 22

Caption = '+'

OnClick = op1Click end

object nu4: TSpeedButton Tag = 4

Left = 32

Top = 124

Width = 23

Height = 22

Caption = '4'

OnClick = nu1Click end

object op2: TSpeedButton Tag = 1

Left = 136

Top = 124

Width = 23

Height = 22

Caption = '-'

end

object nu7: TSpeedButton Tag = 7

Left = 32

Top = 152

Width = 23

Height = 22

Caption = '7'

OnClick = nu1Click end

object nu8: TSpeedButton Tag = 8

Left = 61

Top = 152

Width = 23

Height = 22

Caption = '8'

OnClick = nu1Click end

object nu9: TSpeedButton Tag = 9

Left = 96

Top = 152

Width = 23

Height = 22

Caption = '9'

OnClick = nu1Click end

object nu6: TSpeedButton Tag = 6

Left = 96

Top = 124

Width = 23

Height = 22

Caption = '6'

OnClick = nu1Click end

object nu0: TSpeedButton Left = 32

Top = 180

Width = 23

Height = 22

Caption = '0'

end

object nu10: TSpeedButton Tag = 10

Left = 61

Top = 180

Width = 23

Height = 22

Caption = '.'

end

object op5: TSpeedButton Tag = 4

Left = 96

Top = 180

Width = 23

Height = 22

Caption = '='

OnClick = op1Click end

object nu5: TSpeedButton Tag = 5

Left = 61

Top = 124

Width = 23

Height = 22

Caption = '5'

OnClick = nu1Click end

object op3: TSpeedButton Tag = 2

Left = 136

Top = 152

Width = 23

Height = 22

Caption = '*'

OnClick = op1Click end

object op4: TSpeedButton Tag = 3

Left = 136

Top = 180

Width = 23

Height = 22

Caption = '/'

end

object display: TPanel

Left = 8

Top = 16

Width = 233

Height = 41

Alignment = taRightJustify

BorderStyle = bsSingle

Color = clHighlightText

ParentBackground = False

TabOrder = 0

end

end

end