计算器（加了个小数点）。。。[1]

unit jisuanqiu;

interface

uses
  windows, messages, sysutils, variants, classes, graphics, controls, forms,
  dialogs, stdctrls, extctrls;

type
  tform1 = 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;
    panel1: tpanel;
    edit1: tedit;
    button17: tbutton;
    button16: tbutton;
    button18: tbutton;
    procedure button1click(sender: tobject);
    procedure button2click(sender: tobject);
    procedure button3click(sender: tobject);
    procedure button4click(sender: tobject);
    procedure button5click(sender: tobject);
    procedure button6click(sender: tobject);
    procedure button7click(sender: tobject);
    procedure button8click(sender: tobject);
    procedure button9click(sender: tobject);
    procedure button10click(sender: tobject);
    procedure button12click(sender: tobject);
    procedure button13click(sender: tobject);
    procedure button14click(sender: tobject);
    procedure button15click(sender: tobject);
    procedure button17click(sender: tobject);
    procedure button16click(sender: tobject);
    procedure button11click(sender: tobject);
    procedure formshow(sender: tobject);
    procedure button18click(sender: tobject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  form1: tform1;
 // num,num1,num2:integer;
  s,j,i,s_number,s_type,s_characterlast:string;
implementation

{$r *.dfm}

procedure tform1.button1click(sender: tobject);
begin
if s_type='1' then  begin
  edit1.text:=edit1.text+'1';
  s:='123'; end
else  begin
  edit1.text:='';
  edit1.text:=edit1.text+'1';
  s_type:='1';
end;
end;
procedure tform1.button2click(sender: tobject);
begin
if s_type='1' then begin
  edit1.text:=edit1.text+'2';
  s:='123'; end
else  begin
  edit1.text:='';
  edit1.text:=edit1.text+'2';
  s_type:='1';
end;
      end;

procedure tform1.button3click(sender: tobject);
begin
if s_type='1' then begin
  edit1.text:=edit1.text+'3';
  s:='123'; end
else  begin
  edit1.text:='';
  edit1.text:=edit1.text+'3';
  s_type:='1';
end;;
      end;

procedure tform1.button4click(sender: tobject);
begin
if s_type='1' then begin
  edit1.text:=edit1.text+'4';
  s:='123'; end
else  begin
  edit1.text:='';
  edit1.text:=edit1.text+'4';
  s_type:='1';
end;
      end;

procedure tform1.button5click(sender: tobject);
begin
if s_type='1' then begin
  edit1.text:=edit1.text+'5';
  s:='123'; end
else  begin
  edit1.text:='';
  edit1.text:=edit1.text+'5';
  s_type:='1';
end;
end;

procedure tform1.button6click(sender: tobject);
begin
if s_type='1' then begin
  edit1.text:=edit1.text+'6';
  s:='123'; end
else  begin
  edit1.text:='';
  edit1.text:=edit1.text+'6';
  s_type:='1';
end;
end;

procedure tform1.button7click(sender: tobject);
begin
if s_type='1' then begin
  edit1.text:=edit1.text+'7';
  s:='123'; end
else  begin
  edit1.text:='';
  edit1.text:=edit1.text+'7';
  s_type:='1';
end;
      end;

procedure tform1.button8click(sender: tobject);
begin
if s_type='1' then  begin
  edit1.text:=edit1.text+'8';
  s:='123'; end
else  begin
  edit1.text:='';
  edit1.text:=edit1.text+'8';
  s_type:='1';
end;
end;