《零基础入门学习Delphi》005 - 课件+典型例题源代码+上机实例源代码,零基础入门学习Delphi,【旧】课件与源代码下载（VIP免费）,鱼C论坛

niandai 发表于 2015-6-7 22:54:38

没鱼币啊~

hahahwei 发表于 2015-9-13 16:39:58

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

jobkkk 发表于 2016-4-4 22:08:18

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 发表于 2016-4-13 12:40:20

新手表示买不起~

suyeming 发表于 2016-7-4 09:03:14

Nice!

sayboy168 发表于 2016-8-16 19:25:02

买不起哦

fill2248 发表于 2016-8-24 23:53:53

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

江上客-无类 发表于 2016-9-27 23:39:39

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

甲鱼精 发表于 2016-11-23 16:04:12

好贵啊~~~我要鱼币{:10_245:}

甲鱼精 发表于 2016-11-23 16:05:23

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

humen3049 发表于 2017-2-21 15:51:40

谢谢分享

Vann_W 发表于 2017-4-10 14:39:27

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

装饰你滴梦 发表于 2020-5-29 20:51:09

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

页: 1 2 3 4 5 [6]

鱼C论坛's Archiver