unit1.pas

计数器802611 .jsq.rar

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, StdCtrls, MyRightEdit, ExtCtrls, Buttons, XPMenu;

type
  TForm1 = 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;
    SpeedButton17: TSpeedButton;
    SpeedButton18: TSpeedButton;
    SpeedButton20: TSpeedButton;
    SpeedButton21: TSpeedButton;
    SpeedButton22: TSpeedButton;
    SpeedButton23: TSpeedButton;
    SpeedButton24: TSpeedButton;
    SpeedButton25: TSpeedButton;
    SpeedButton26: TSpeedButton;
    SpeedButton27: TSpeedButton;
    SpeedButton28: TSpeedButton;
    SpeedButton29: TSpeedButton;
    SpeedButton30: TSpeedButton;
    SpeedButton31: TSpeedButton;
    Panel1: TPanel;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    XPMenu1: TXPMenu;
    MyRightEdit1: TMyRightEdit;
    SpeedButton19: TSpeedButton;
    procedure FormCreate(Sender: TObject);
    procedure SpeedButton7Click(Sender: TObject);
    procedure SpeedButton12Click(Sender: TObject);
    procedure SpeedButton9Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton8Click(Sender: TObject);
    procedure SpeedButton13Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton14Click(Sender: TObject);
    procedure SpeedButton16Click(Sender: TObject);
    procedure SpeedButton15Click(Sender: TObject);
    procedure SpeedButton11Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton20Click(Sender: TObject);
    procedure SpeedButton25Click(Sender: TObject);
    procedure SpeedButton26Click(Sender: TObject);
    procedure SpeedButton27Click(Sender: TObject);
    procedure SpeedButton10Click(Sender: TObject);
    procedure SpeedButton17Click(Sender: TObject);
    procedure SpeedButton18Click(Sender: TObject);
    procedure SpeedButton19Click(Sender: TObject);
    procedure SpeedButton28Click(Sender: TObject);
    procedure SpeedButton31Click(Sender: TObject);
    procedure SpeedButton30Click(Sender: TObject);
    procedure SpeedButton29Click(Sender: TObject);
    procedure SpeedButton23Click(Sender: TObject);
    procedure SpeedButton22Click(Sender: TObject);
    procedure SpeedButton21Click(Sender: TObject);
    procedure SpeedButton24Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
    s1,s2,s3:real;
  yunsuan,xiaoshudian,shuzi:integer;
  m,n,k,fuhao,js:integer;
  x,y:string;
  ms:string;
  xp,ll:string;

implementation

uses Unit2;




{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  myrightedit1.Text:='0.';
  xiaoshudian:=0;
  yunsuan:=0;
  fuhao:=0;
  js:=0;
end;

procedure TForm1.SpeedButton7Click(Sender: TObject);
begin
  if yunsuan=0 then
    begin
      if xiaoshudian=0 then
        begin
          if myrightedit1.Text='0.' then
            begin
              myrightedit1.Text:='1.';
            end
            else
            if myrightedit1.Text<>'0.' then
              begin
                y:=myrightedit1.Text;
                m:=length(y);
                setlength(y,m-1);
                myrightedit1.Text:=y+'1'+'.';
              end;
            end;
      if xiaoshudian=1 then
        begin
          y:=myrightedit1.Text;
          myrightedit1.Text:=y+'1';
        end;
    end;
  if yunsuan=1 then
    begin
      myrightedit1.Text:='1.';
      yunsuan:=0;
      xiaoshudian:=0;
    end;
   shuzi:=1;
     if js=1 then
  begin
  n:=0;
  js:=js-1;
  end;

end;

procedure TForm1.SpeedButton12Click(Sender: TObject);
begin

    if yunsuan=0 then
    begin
      if xiaoshudian=0 then
        begin
          if myrightedit1.Text='0.' then
            begin
              myrightedit1.Text:='0.';
            end
            else
            if myrightedit1.Text<>'0.' then
              begin
                y:=myrightedit1.Text;
                m:=length(y);
                setlength(y,m-1);
                myrightedit1.Text:=y+'0'+'.';
              end;
            end;
      if xiaoshudian=1 then
        begin
          y:=myrightedit1.Text;
          myrightedit1.Text:=y+'0';
        end;
    end;
  if yunsuan=1 then
    begin
      myrightedit1.Text:='0.';
      yunsuan:=0;
      xiaoshudian:=0;
    end;
  shuzi:=1;
      if js=1 then
  begin
  n:=0;
  js:=js-1;
  end;
end;

procedure TForm1.SpeedButton9Click(Sender: TObject);
begin

  if yunsuan=0 then
    begin
      if xiaoshudian=0 then
        begin
          if myrightedit1.Text='0.' then
            begin
              myrightedit1.Text:='3.';
            end
            else
            if myrightedit1.Text<>'0.' then
              begin
                y:=myrightedit1.Text;
                m:=length(y);
                setlength(y,m-1);
                myrightedit1.Text:=y+'3'+'.';
              end;
            end;
      if xiaoshudian=1 then
        begin
          y:=myrightedit1.Text;
          myrightedit1.Text:=y+'3';
        end;
    end;
  if yunsuan=1 then
    begin
      myrightedit1.Text:='3.';
      yunsuan:=0;
      xiaoshudian:=0;
    end;
  shuzi:=1;
  if js=1 then
  begin
  n:=0;
  js:=js-1;
  end;
end;

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin

  if yunsuan=0 then
    begin
      if xiaoshudian=0 then
        begin
          if myrightedit1.Text='0.' then
            begin
              myrightedit1.Text:='4.';
            end
            else
            if myrightedit1.Text<>'0.' then
              begin
                y:=myrightedit1.Text;
                m:=length(y);
                setlength(y,m-1);
                myrightedit1.Text:=y+'4'+'.';
              end;
            end;
      if xiaoshudian=1 then
        begin
          y:=myrightedit1.Text;
          myrightedit1.Text:=y+'4';
        end;
    end;
  if yunsuan=1 then
    begin
      myrightedit1.Text:='4.';
      yunsuan:=0;
      xiaoshudian:=0;
    end;
  shuzi:=1;
  if js=1 then
  begin
  n:=0;
  js:=js-1;
  end;  
end;

procedure TForm1.SpeedButton8Click(Sender: TObject);
begin

  if yunsuan=0 then
    begin
      if xiaoshudian=0 then
        begin
          if myrightedit1.Text='0.' then
            begin
              myrightedit1.Text:='5.';
            end
            else
            if myrightedit1.Text<>'0.' then
              begin
                y:=myrightedit1.Text;
                m:=length(y);
                setlength(y,m-1);
                myrightedit1.Text:=y+'5'+'.';
              end;
            end;
      if xiaoshudian=1 then
        begin
          y:=myrightedit1.Text;
          myrightedit1.Text:=y+'5';
        end;
    end;
  if yunsuan=1 then
    begin
      myrightedit1.Text:='5.';
      yunsuan:=0;
      xiaoshudian:=0;
    end;
  shuzi:=1;
  if js=1 then
  begin
  n:=0;
  js:=js-1;
  end;
end;

procedure TForm1.SpeedButton13Click(Sender: TObject);
begin

  if yunsuan=0 then
    begin
      if xiaoshudian=0 then
        begin
          if myrightedit1.Text='0.' then
            begin
              myrightedit1.Text:='6.';
            end
            else
            if myrightedit1.Text<>'0.' then
              begin
                y:=myrightedit1.Text;
                m:=length(y);
                setlength(y,m-1);
                myrightedit1.Text:=y+'6'+'.';
              end;
            end;
      if xiaoshudian=1 then
        begin
          y:=myrightedit1.Text;
          myrightedit1.Text:=y+'6';
        end;
    end;
  if yunsuan=1 then
    begin
      myrightedit1.Text:='6.';
      yunsuan:=0;
      xiaoshudian:=0;
    end;
  shuzi:=1;
  if js=1 then
  begin
  n:=0;
  js:=js-1;
  end;  
end;

procedure TForm1.SpeedButton2Click(Sender: TObject);
begin

  if yunsuan=0 then
    begin
      if xiaoshudian=0 then
        begin
          if myrightedit1.Text='0.' then
            begin
              myrightedit1.Text:='7.';
            end
            else
            if myrightedit1.Text<>'0.' then
              begin
                y:=myrightedit1.Text;
                m:=length(y);
                setlength(y,m-1);
                myrightedit1.Text:=y+'7'+'.';
              end;
            end;
      if xiaoshudian=1 then
        begin
          y:=myrightedit1.Text;
          myrightedit1.Text:=y+'7';
        end;
    end;
  if yunsuan=1 then
    begin
      myrightedit1.Text:='7.';
      yunsuan:=0;
      xiaoshudian:=0;
    end;
  shuzi:=1;
  if js=1 then
  begin
  n:=0;
  js:=js-1;
  end;
end;

procedure TForm1.SpeedButton6Click(Sender: TObject);
begin

  if yunsuan=0 then
    begin
      if xiaoshudian=0 then
        begin
          if myrightedit1.Text='0.' then
            begin
              myrightedit1.Text:='8.';
            end
            else
            if myrightedit1.Text<>'0.' then
              begin
                y:=myrightedit1.Text;
                m:=length(y);
                setlength(y,m-1);
                myrightedit1.Text:=y+'8'+'.';
              end;
            end;
      if xiaoshudian=1 then
        begin
          y:=myrightedit1.Text;
          myrightedit1.Text:=y+'8';
        end;
    end;
  if yunsuan=1 then
    begin
      myrightedit1.Text:='8.';
      yunsuan:=0;
      xiaoshudian:=0;
    end;
  shuzi:=1;
  if js=1 then
  begin
  n:=0;
  js:=js-1;
  end;
end;

procedure TForm1.SpeedButton3Click(Sender: TObject);
begin

  if yunsuan=0 then
    begin
      if xiaoshudian=0 then
        begin
          if myrightedit1.Text='0.' then
            begin
              myrightedit1.Text:='9.';
            end
            else
            if myrightedit1.Text<>'0.' then
              begin
                y:=myrightedit1.Text;
                m:=length(y);
                setlength(y,m-1);
                myrightedit1.Text:=y+'9'+'.';
              end;
            end;
      if xiaoshudian=1 then
        begin
          y:=myrightedit1.Text;
          myrightedit1.Text:=y+'9';
        end;
    end;
  if yunsuan=1 then
    begin
      myrightedit1.Text:='9.';
      yunsuan:=0;
      xiaoshudian:=0;
    end;
  shuzi:=1;
  if js=1 then
  begin
  n:=0;
  js:=js-1;
  end;
end;

procedure TForm1.SpeedButton14Click(Sender: TObject);
begin

  if yunsuan=0 then
    begin
      if xiaoshudian=0 then
        begin
          if myrightedit1.Text='0.' then
            begin
              myrightedit1.Text:='2.';
            end
            else
            if myrightedit1.Text<>'0.' then
              begin
                y:=myrightedit1.Text;
                m:=length(y);
                setlength(y,m-1);
                myrightedit1.Text:=y+'2'+'.';
              end;