unit1.pas

随便写的很难看

end;

procedure TForm1.Button7Click(Sender: TObject);
begin
     if ((jia=1) or (jian=1) or (cheng=1) or(chu=1)) and (huan=true)
         then
             begin
             huan:=false;
             dian:=false;
             Edit1.Text:='';
             if length(Edit1.Text)>10
                then
                    Edit1.Text:=Edit1.Text
                else
                    Edit1.Text:=Edit1.Text+'7';
             end
         else
             if deng=false
                then
                    if length(Edit1.Text)>10
                        then
                            Edit1.Text:=Edit1.Text
                        else
                            begin
                            Edit1.Text:='';
                            Edit1.Text:=Edit1.Text+'7';
                            dian:=false;
                            deng:=true;
                            end
                else
                    if length(Edit1.Text)>10
                        then
                            Edit1.Text:=Edit1.Text
                        else
                            Edit1.Text:=Edit1.Text+'7';
                            dian:=false;

end;

procedure TForm1.Button8Click(Sender: TObject);
begin
     if ((jia=1) or (jian=1) or (cheng=1) or(chu=1)) and (huan=true)
         then
             begin
             huan:=false;
             dian:=false;
             Edit1.Text:='';
             if length(Edit1.Text)>10
                then
                    Edit1.Text:=Edit1.Text
                else
                    Edit1.Text:=Edit1.Text+'8';
             end
         else
             if deng=false
                then
                    if length(Edit1.Text)>10
                        then
                            Edit1.Text:=Edit1.Text
                        else
                            begin
                            Edit1.Text:='';
                            Edit1.Text:=Edit1.Text+'8';
                            dian:=false;
                            deng:=true;
                            end
                else
                    if length(Edit1.Text)>10
                        then
                            Edit1.Text:=Edit1.Text
                        else
                            Edit1.Text:=Edit1.Text+'8';
                            dian:=false;

end;


procedure TForm1.Button9Click(Sender: TObject);
begin
     if ((jia=1) or (jian=1) or (cheng=1) or(chu=1)) and (huan=true)
         then
             begin
             huan:=false;
             dian:=false;
             Edit1.Text:='';
             if length(Edit1.Text)>10
                then
                    Edit1.Text:=Edit1.Text
                else
                    Edit1.Text:=Edit1.Text+'9';
             end
         else
             if deng=false
                then
                    if length(Edit1.Text)>10
                        then
                            Edit1.Text:=Edit1.Text
                        else
                            begin
                            Edit1.Text:='';
                            Edit1.Text:=Edit1.Text+'9';
                            dian:=false;
                            deng:=true;
                            end
                else
                    if length(Edit1.Text)>10
                        then
                            Edit1.Text:=Edit1.Text
                        else
                            Edit1.Text:=Edit1.Text+'9';
                            dian:=false;

end;

procedure TForm1.Button10Click(Sender: TObject);
begin
     if ((jia=1) or (jian=1) or (cheng=1) or(chu=1)) and (huan=true)
         then
         begin
             huan:=false;
             dian:=false;
             Edit1.Text:='';
             if length(Edit1.Text)>10
                then
                    Edit1.Text:=Edit1.Text
                else
                    Edit1.Text:=Edit1.Text+'0';
         end
         else
             if deng=false
                then
                    if length(Edit1.Text)>10
                        then
                            Edit1.Text:=Edit1.Text
                        else
                            begin
                            Edit1.Text:='';
                            Edit1.Text:=Edit1.Text+'0';
                            dian:=false;
                            deng:=true;
                            end
                else
                    if length(Edit1.Text)>10
                        then
                            Edit1.Text:=Edit1.Text
                        else
                            Edit1.Text:=Edit1.Text+'0';
                            dian:=false;
end;

procedure TForm1.Button12Click(Sender: TObject);
var
   i:integer;
   a:string;
begin
     if length(Edit1.Text)>10
         then
              Edit1.Text:=Edit1.Text
         else
              begin
                   a:=copy(Edit1.Text,1,length(Edit1.Text));
                   for i:=1 to (length(Edit1.Text)) do
                       if a[i]='.'
                          then
                              dian:= true;
                   if (length(Edit1.Text)=0)
                       then
                           Edit1.Text:=Edit1.Text;
                   if dian=true
                      then
                          Edit1.Text:=Edit1.Text
                      else
                          Edit1.Text:=Edit1.Text+'.';
              end;
end;

procedure TForm1.Button11Click(Sender: TObject);
begin
     if (Edit1.Text='0') or (length(Edit1.Text)=1)
        then
            Edit1.Text:=''
        else
            Edit1.Text:=copy(Edit1.Text,1,length(Edit1.Text)-1);
end;

procedure TForm1.Button13Click(Sender: TObject);
begin
     jiafa:=strtofloat(Edit1.Text);
     jia:=1;
     huan:=true;
     deng:=true;
end;

procedure TForm1.Button17Click(Sender: TObject);
begin
     deng:=false;
     if  (jia=1)
        then
            begin
                 Edit1.Text:=floattostr(jiafa+strtofloat(Edit1.Text));
                 jia:=0;
                 jiafa:=0;
                 dian:=true;
            end;
     if  (jian=1)
               then
                   begin
                        Edit1.Text:=floattostr(jianfa-strtofloat(Edit1.Text));
                        jian:=0;
                        jianfa:=0;
                        dian:=true;
                   end;
     if   (cheng=1)
               then
                   begin
                        Edit1.Text:=floattostr(chengfa*strtofloat(Edit1.Text));
                        cheng:=0;
                        chengfa:=0;
                        dian:=true;
                   end;
     if   (chu=1)
               then
                   begin
                        Edit1.Text:=floattostr(chufa/strtofloat(Edit1.Text));
                        chu:=0;
                        chufa:=0;
                        dian:=true;
                   end;
end;

procedure TForm1.Button14Click(Sender: TObject);
begin
     jianfa:=strtofloat(Edit1.Text);
     jian:=1;
     huan:=true;
     deng:=true;
end;

procedure TForm1.Button15Click(Sender: TObject);
begin
     chengfa:=strtofloat(Edit1.Text);
     cheng:=1;
     huan:=true;
     deng:=true;
end;

procedure TForm1.Button16Click(Sender: TObject);
begin
     chufa:=strtofloat(Edit1.Text);
     chu:=1;
     huan:=true;
     deng:=true;
end;

procedure TForm1.Button18Click(Sender: TObject);
begin
     Edit1.Text:='';
     dian:=false;
     jia:=0;
     jian:=0;
     cheng:=0;
     chu:=0;
     deng:=true;
     huan:=false;
end;

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

procedure TForm1.A1Click(Sender: TObject);
begin
     Button13.Click;
end;

procedure TForm1.N5Click(Sender: TObject);
begin
     Button14.Click;
end;

procedure TForm1.N6Click(Sender: TObject);
begin
     Button15.Click;
end;

procedure TForm1.N7Click(Sender: TObject);
begin
     Button16.Click;
end;

procedure TForm1.N8Click(Sender: TObject);
begin
     Button17.Click;
end;

procedure TForm1.N9Click(Sender: TObject);
begin
      Form2.ShowModal;
end;

procedure TForm1.N10Click(Sender: TObject);
begin
     Form3.ShowModal;
end;

end.