《零基础入门学习Delphi》005 - 课件+典型例题源代码+上机实例源代码

niandai

没鱼币啊~

hahahwei

学到第五课~头现在很大啊

jobkkk

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' ;
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
  tttt:=1;
  temp:=StrToFloat(edt1.text);
  edt1.Text:='';
end;

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

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

procedure TForm1.btn_DClick(Sender: TObject);
begin
  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.

haijie1223

新手表示买不起~

suyeming

Nice!

sayboy168

买不起哦

fill2248

刚刚学习的小白 鱼币不够 除了VIP 还有其他办法吗

江上客-无类

这要是万一下错了..........

甲鱼精

好贵啊~~~我要鱼币

甲鱼精

鱼币~~~~~我要~~鱼币

humen3049

谢谢分享

Vann_W

有点儿贵啊，不是VIP的话基本下不了

装饰你滴梦

买个VIP吧，能学到东西这点钱真的不贵！