鱼C论坛

 找回密码
 立即注册
查看: 2316|回复: 1

[技术交流] 零基础学delphi(小甲鱼版)视频课程-第5课练习题

[复制链接]
发表于 2016-4-4 22:17:51 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能^_^

您需要 登录 才可以下载或查看,没有账号?立即注册

x
本帖最后由 jobkkk 于 2016-4-4 23:40 编辑

做了一点点的if判断,在除法时,或不输数直接按"="号,程序出错的问题.....  其他可能还有没有考虑到的地方,请指教....




unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    edt1: TEdit;
    btn1: TButton;
    btn2: TButton;
    btn3: TButton;
    btn4: TButton;
    btn5: TButton;
    btn6: TButton;
    btn7: TButton;
    btn8: TButton;
    btn9: TButton;
    btn10: TButton;
    btn11: TButton;
    btn_off: TButton;
    btn12: TButton;
    btn_A: TButton;
    btn_B: TButton;
    btn_C: TButton;
    btn_D: TButton;
    btn_E: TButton;
    btn_F: TButton;
    btn_G: TButton;

    procedure FormCreate(Sender: TObject);
    procedure btn_offClick(Sender: TObject);
    procedure btn_EClick(Sender: TObject);
    procedure btn_FClick(Sender: TObject);
    procedure btn1Click(Sender: TObject);
    procedure btn2Click(Sender: TObject);
    procedure btn3Click(Sender: TObject);
    procedure btn4Click(Sender: TObject);
    procedure btn5Click(Sender: TObject);
    procedure btn6Click(Sender: TObject);
    procedure btn7Click(Sender: TObject);
    procedure btn8Click(Sender: TObject);
    procedure btn9Click(Sender: TObject);
    procedure btn10Click(Sender: TObject);
    procedure btn11Click(Sender: TObject);
    procedure btn12Click(Sender: TObject);
    procedure btn_AClick(Sender: TObject);
    procedure btn_GClick(Sender: TObject);
    procedure btn_BClick(Sender: TObject);
    procedure btn_CClick(Sender: TObject);
    procedure btn_DClick(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  temp: Real;
  tttt: integer;
implementation

{$R *.dfm}



procedure TForm1.FormCreate(Sender: TObject);
begin
   SetWindowLong(Edt1.Handle,GWL_STYLE,GetWindowLong(Edt1.Handle,GWL_STYLE) or ES_right);
end;

procedure TForm1.btn_offClick(Sender: TObject);
begin
Application.Terminate;
end;

procedure TForm1.btn_EClick(Sender: TObject);
begin
  edt1.Text:= '0' ;
  temp:=0;
  tttt:=1;
end;

procedure TForm1.btn_FClick(Sender: TObject);
begin
  edt1.Text:= FloatToStr(StrToFloat(edt1.Text)*100);
end;

procedure TForm1.btn1Click(Sender: TObject);
begin
  if edt1.Text='0'
    then
    begin
      edt1.Text:='';
      edt1.Text:=edt1.text+'1';
    end
    else
    begin
      edt1.Text:=edt1.text+'1';
    end;


end;


procedure TForm1.btn2Click(Sender: TObject);
begin
  if edt1.Text='0'
    then
    begin
      edt1.Text:='';
      edt1.Text:=edt1.text+'2';
    end
    else
    begin
      edt1.Text:=edt1.text+'2';
    end;


end;

procedure TForm1.btn3Click(Sender: TObject);
begin
  if edt1.Text='0'
    then
    begin
      edt1.Text:='';
      edt1.Text:=edt1.text+'3';
    end
    else
    begin
      edt1.Text:=edt1.text+'3';
    end;


end;

procedure TForm1.btn4Click(Sender: TObject);
begin
  if edt1.Text='0'
    then
    begin
      edt1.Text:='';
      edt1.Text:=edt1.text+'4';
    end
    else
    begin
      edt1.Text:=edt1.text+'4';
    end;


end;

procedure TForm1.btn5Click(Sender: TObject);
begin
  if edt1.Text='0'
    then
    begin
      edt1.Text:='';
      edt1.Text:=edt1.text+'5';
    end
    else
    begin
      edt1.Text:=edt1.text+'5';
    end;


end;

procedure TForm1.btn6Click(Sender: TObject);
begin
  if edt1.Text='0'
    then
    begin
      edt1.Text:='';
      edt1.Text:=edt1.text+'6';
    end
    else
    begin
      edt1.Text:=edt1.text+'6';
    end;
end;

procedure TForm1.btn7Click(Sender: TObject);
begin
  if edt1.Text='0'
    then
    begin
      edt1.Text:='';
      edt1.Text:=edt1.text+'7';
    end
    else
    begin
      edt1.Text:=edt1.text+'7';
    end;
end;

procedure TForm1.btn8Click(Sender: TObject);
begin
  if edt1.Text='0'
    then
    begin
      edt1.Text:='';
      edt1.Text:=edt1.text+'8';
    end
    else
    begin
      edt1.Text:=edt1.text+'8';
    end;
end;

procedure TForm1.btn9Click(Sender: TObject);
begin
  if edt1.Text='0'
    then
    begin
      edt1.Text:='';
      edt1.Text:=edt1.text+'9';
    end
    else
    begin
      edt1.Text:=edt1.text+'9';
    end;
end;

procedure TForm1.btn10Click(Sender: TObject);
begin
  if edt1.Text='0'
    then
    begin
      edt1.Text:='';
      edt1.Text:=edt1.text+'0';
    end
    else
    begin
      edt1.Text:=edt1.text+'0';
    end;
end;

procedure TForm1.btn11Click(Sender: TObject);
begin
  if edt1.Text='0'
    then
    begin
      edt1.Text:='';
      edt1.Text:=edt1.text+'00';
    end
    else
    begin
      edt1.Text:=edt1.text+'00';
    end;
end;

procedure TForm1.btn12Click(Sender: TObject);
begin
  if (edt1.Text='0') or (edt1.Text='00')
    then
    begin
      edt1.Text:='0'+'.';
    end
    else
    begin
      edt1.Text:=edt1.text+'.';
    end;
end;

procedure TForm1.btn_AClick(Sender: TObject);
begin
  Form1.btn_G.Click();
  tttt:=1;
  temp:=StrToFloat(edt1.text);
  edt1.Text:='';
end;

procedure TForm1.btn_BClick(Sender: TObject);
begin
  Form1.btn_G.Click();
  tttt:=2;
  temp:=StrToFloat(edt1.text);
  edt1.Text:='';
end;

procedure TForm1.btn_CClick(Sender: TObject);
begin
  Form1.btn_G.Click();
  tttt:=3;
  temp:=StrToFloat(edt1.text);
  edt1.Text:='';
end;

procedure TForm1.btn_DClick(Sender: TObject);
begin
  Form1.btn_G.Click();
  tttt:=4;
  temp:=StrToFloat(edt1.text);
  edt1.Text:='';
end;

procedure TForm1.btn_GClick(Sender: TObject);
begin
  if edt1.Text=''
  then
    begin
      edt1.Text:='0';
    end;

  begin
    case tttt of
     1:edt1.Text:=FloatToStr(temp+strtofloat(edt1.text));
     2:edt1.Text:=FloatToStr(temp-strtofloat(edt1.text));
     3:edt1.Text:=FloatToStr(temp*strtofloat(edt1.text));
     4:begin
         if (edt1.Text='') or (edt1.Text='0')
         then
            begin
             edt1.Text:='0'
            end
         else
            begin
              edt1.Text:=FloatToStr(temp/strtofloat(edt1.text));
            end
        end;
    end;
  end;
end;
end.

unit5.zip

204.15 KB, 下载次数: 2

更新连续运算

unit5.zip

204.22 KB, 下载次数: 3

评分

参与人数 1荣誉 +3 鱼币 +5 收起 理由
~风介~ + 3 + 5 热爱鱼C^_^

查看全部评分

想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
回复

使用道具 举报

 楼主| 发表于 2016-4-4 22:55:31 | 显示全部楼层
发现个问题,不能连算, 刚学delphi,还不会做复杂点的东西
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

小黑屋|手机版|Archiver|鱼C工作室 ( 粤ICP备18085999号-1 | 粤公网安备 44051102000585号)

GMT+8, 2024-3-29 23:39

Powered by Discuz! X3.4

© 2001-2023 Discuz! Team.

快速回复 返回顶部 返回列表