簡易計算機。。。

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;
    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);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  j,i,num,num1,num2:integer;
  s:string;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
if i<>1 then
begin
  if  (edit1.Text='+') or (edit1.Text='－') or (edit1.Text='X') or (edit1.Text='/') then
    begin
      edit1.Text:='';
      edit1.Text:=edit1.Text+Button1.Caption;
    end
    else
      edit1.Text:=edit1.Text+Button1.Caption;
end
    else
      begin
      edit1.Text:='';
      edit1.Text:=edit1.Text+Button1.Caption;
      end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
if i<>1 then
begin
  if  (edit1.Text='+') or (edit1.Text='－') or (edit1.Text='X') or (edit1.Text='/') then
    begin
      edit1.Text:='';
      edit1.Text:=edit1.Text+Button2.Caption;
    end
    else
      edit1.Text:=edit1.Text+Button2.Caption;
end
    else
      begin
      edit1.Text:='';
      edit1.Text:=edit1.Text+Button2.Caption;
      end;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
if i<>1 then
begin
  if  (edit1.Text='+') or (edit1.Text='－') or (edit1.Text='X') or (edit1.Text='/') then
    begin
      edit1.Text:='';
      edit1.Text:=edit1.Text+Button3.Caption;
    end
    else
      edit1.Text:=edit1.Text+Button3.Caption;
end
    else
      begin
      edit1.Text:='';
      edit1.Text:=edit1.Text+Button3.Caption;
      end;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
if i<>1 then
begin
  if  (edit1.Text='+') or (edit1.Text='－') or (edit1.Text='X') or (edit1.Text='/') then
    begin
      edit1.Text:='';
      edit1.Text:=edit1.Text+Button4.Caption;
    end
    else
      edit1.Text:=edit1.Text+Button4.Caption;
end
    else
      begin
      edit1.Text:='';
      edit1.Text:=edit1.Text+Button4.Caption;
      end;
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
if i<>1 then
begin
  if  (edit1.Text='+') or (edit1.Text='－') or (edit1.Text='X') or (edit1.Text='/') then
    begin
      edit1.Text:='';
      edit1.Text:=edit1.Text+Button5.Caption;
    end
    else
     edit1.Text:=edit1.Text+Button5.Caption;
end
    else
      begin
      edit1.Text:='';
      edit1.Text:=edit1.Text+Button5.Caption;
      end;
end;

procedure TForm1.Button6Click(Sender: TObject);
begin
if i<>1 then
begin
  if  (edit1.Text='+') or (edit1.Text='－') or (edit1.Text='X') or (edit1.Text='/') then
    begin
      edit1.Text:='';
      edit1.Text:=edit1.Text+Button6.Caption;
    end
    else
      edit1.Text:=edit1.Text+Button6.Caption;
end
    else
      begin
      edit1.Text:='';
      edit1.Text:=edit1.Text+Button6.Caption;
      end;
end;

procedure TForm1.Button7Click(Sender: TObject);
begin
if i<>1 then
begin
  if  (edit1.Text='+') or (edit1.Text='－') or (edit1.Text='X') or (edit1.Text='/') then
    begin
      edit1.Text:='';
      edit1.Text:=edit1.Text+Button7.Caption;
    end
    else
      edit1.Text:=edit1.Text+Button7.Caption;
end
    else
      begin
      edit1.Text:='';
      edit1.Text:=edit1.Text+Button7.Caption;
      end;
end;

procedure TForm1.Button8Click(Sender: TObject);
begin
if i<>1 then
begin
  if  (edit1.Text='+') or (edit1.Text='－') or (edit1.Text='X') or (edit1.Text='/') then
    begin
      edit1.Text:='';
      edit1.Text:=edit1.Text+Button8.Caption;
    end
    else
      edit1.Text:=edit1.Text+Button8.Caption;
end
    else
      begin
      edit1.Text:='';
      edit1.Text:=edit1.Text+Button8.Caption;
      end;
end;

procedure TForm1.Button9Click(Sender: TObject);
begin
if i<>1 then
begin
  if  (edit1.Text='+') or (edit1.Text='－') or (edit1.Text='X') or (edit1.Text='/') then
    begin
      edit1.Text:='';
      edit1.Text:=edit1.Text+Button9.Caption;
    end
    else
      edit1.Text:=edit1.Text+Button9.Caption;
end
    else
      begin
      edit1.Text:='';
      edit1.Text:=edit1.Text+Button9.Caption;
      end;
end;

procedure TForm1.Button10Click(Sender: TObject);
begin
if i<>1 then
begin
  if  (edit1.Text='+') or (edit1.Text='－') or (edit1.Text='X') or (edit1.Text='/') then
    begin
      edit1.Text:='';
      edit1.Text:=edit1.Text+Button10.Caption;
    end
    else
      edit1.Text:=edit1.Text+Button10.Caption;
end
    else
      begin
      edit1.Text:='';
      edit1.Text:=edit1.Text+Button10.Caption;
      end;
end;

procedure TForm1.Button12Click(Sender: TObject);
begin
   if  (edit1.Text='－') or (edit1.Text='X') or (edit1.Text='/') then
   begin
      edit1.text:='+';
       s:='+';
   end
      else
      begin
        num1:=strtoint(edit1.Text);
        num:=num1;
        edit1.text:='+';
        s:='+';
      end;
   {if  (edit1.Text='－') or (edit1.Text='X') or (edit1.Text='/') then
   begin
   num1:=j;
      edit1.text:='+';
      s:='+';
   end
   else
   begin
     if j=strtoint(edit1.Text)   then
     begin
        num1:=strtoint(edit1.Text);
        j:=num1;
        edit1.text:='+';
        s:='+';
     end
     else
      begin
        num2:=strtoint(edit1.text);
        if  (s='+') or(s='－') or(s='X') or (s='/') then
        begin
          if  (s='+')  then
          begin
           num:=j+num2;
            edit1.Text:=inttostr(num);
            //j
          end;
          if  (s='－')  then
          begin
           num:=j-num2;
           edit1.Text:=inttostr(num);
         end;
         if  (s='X')  then
         begin
           num:=j*num2;
           edit1.Text:=inttostr(num);
          end;
         if  (s='/')  then
         begin
           num:=j div num2;
          edit1.Text:=inttostr(num);
         end;
        end;
       // i:=1;
     end;
   end; }
end;

procedure TForm1.Button13Click(Sender: TObject);
begin
   if  (edit1.Text='+') or (edit1.Text='X') or (edit1.Text='/') then
   begin
      edit1.text:='－';
       s:='－';
   end
      else
      begin
        num1:=strtoint(edit1.Text);
        num:=num1;
        edit1.text:='－';
        s:='－';
      end;
end;

procedure TForm1.Button14Click(Sender: TObject);
begin
   if  (edit1.Text='－') or (edit1.Text='+') or (edit1.Text='/') then
   begin
      edit1.text:='X';
      s:='X';
   end
      else
      begin
        num1:=strtoint(edit1.Text);
         num:=num1;
        edit1.text:='X';
        s:='X';
      end;
end;

procedure TForm1.Button15Click(Sender: TObject);
begin
   if  (edit1.Text='－') or (edit1.Text='X') or (edit1.Text='+') then
   begin
      edit1.text:='/';
      s:='/';
   end
      else
      begin
        num1:=strtoint(edit1.Text);
         num:=num1;
        edit1.text:='/';
        s:='/';
      end;
end;

procedure TForm1.Button17Click(Sender: TObject);
begin
close;
end;

procedure TForm1.Button16Click(Sender: TObject);
begin
edit1.Text:='';
end;

procedure TForm1.Button11Click(Sender: TObject);
begin
   num2:=strtoint(edit1.text);
if  (s='+') or(s='－') or(s='X') or (s='/') then
begin
  if  (s='+')  then
  begin   
    num:=num1+num2;
    edit1.Text:=inttostr(num);
  end;
  if  (s='－')  then
  begin
    num:=num1-num2;
    edit1.Text:=inttostr(num);
  end;
  if  (s='X')  then
  begin
    num:=num1*num2;
    edit1.Text:=inttostr(num);
  end;
  if  (s='/')  then
  begin
    num:=num1 div num2;
    edit1.Text:=inttostr(num);
  end;
end;
i:=1;
end;

end.