刚写的计算器，出自——零基础Delpghi005

头号甜心.Beauti

刚开始学Delphi，还是看到零基础Delphi005，课内有一个上机练习，就是写完那个演示的计算器，以下是我写的，以及还有一些疑问，请大大帮我解惑，先上源码。

1. unit Unit1;
   
2. 
   
3. interface
   
4. 
   
5. uses
   
6.   Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
   
7.   Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;
   
8. 
   
9. type
   
10.   TForm1 = class(TForm)
    
11.     Button1: TButton;
    
12.     Button2: TButton;
    
13.     Button3: TButton;
    
14.     Button4: TButton;
    
15.     Button5: TButton;
    
16.     Button6: TButton;
    
17.     Button7: TButton;
    
18.     Button8: TButton;
    
19.     Button9: TButton;
    
20.     Button10: TButton;
    
21.     Edit1: TEdit;
    
22.     Edit2: TEdit;
    
23.     Edit3: TEdit;
    
24.     Label1: TLabel;
    
25.     Label2: TLabel;
    
26.     procedure Button8Click(Sender: TObject);
    
27.     procedure Edit1Click(Sender: TObject);
    
28.     procedure Edit2Click(Sender: TObject);
    
29.     procedure Edit3Click(Sender: TObject);
    
30.     procedure Button1Click(Sender: TObject);
    
31.     procedure Button2Click(Sender: TObject);
    
32.     procedure Button3Click(Sender: TObject);
    
33.     procedure Button4Click(Sender: TObject);
    
34.     procedure Button5Click(Sender: TObject);
    
35.     procedure Button6Click(Sender: TObject);
    
36.     procedure Button7Click(Sender: TObject);
    
37.     procedure Button9Click(Sender: TObject);
    
38.     procedure Button10Click(Sender: TObject);
    
39.   private
    
40.     { Private declarations }
    
41.   public
    
42.     { Public declarations }
    
43.   end;
    
44. 
    
45. var
    
46.   Form1: TForm1;
    
47. 
    
48. implementation
    
49. 
    
50. {$R *.dfm}
    
51. 
    
52. procedure TForm1.Button10Click(Sender: TObject);
    
53. begin
    
54. Label1.Caption:='shr';
    
55. Edit3.Text:='此功能不会写';
    
56. //Edit3.Text:=StrToInt( Shr IntToStr(Edit1.Text) ); //向右位移，这样是错的
    
57. //Edit3.Text:=StrToInt(IntToStr(Edit1.Text) Shr IntToStr(Edit2.Text));//向右位移这样也是错的
    
58. 
    
59. end;
    
60. 
    
61. procedure TForm1.Button1Click(Sender: TObject);
    
62. begin
    
63. Label1.Caption:='  +';
    
64. Edit3.Text:=IntToStr(StrToInt(Edit1.Text)+StrToInt(Edit2.Text));//这行是加法
    
65. end;
    
66. 
    
67. procedure TForm1.Button2Click(Sender: TObject);
    
68. begin
    
69. Label1.Caption:='  -';
    
70. Edit3.Text:=IntToStr(StrToInt(Edit1.Text)-StrToInt(Edit2.Text));//这行是减法
    
71. end;
    
72. 
    
73. procedure TForm1.Button3Click(Sender: TObject);
    
74. begin
    
75. Label1.Caption:='  ×';
    
76. Edit3.Text:=FloatToStr(StrToFloat(Edit1.Text)*StrToFloat(Edit2.Text));//这行是乘法
    
77. end;
    
78. 
    
79. procedure TForm1.Button4Click(Sender: TObject);
    
80. begin
    
81. Label1.Caption:='  ÷';
    
82. Edit3.Text:=FloatToStr(StrToFloat(Edit1.Text)/StrToFloat(Edit2.Text)); //这行是除法
    
83. 
    
84. end;
    
85. 
    
86. procedure TForm1.Button5Click(Sender: TObject);
    
87. begin
    
88. Label1.Caption:='Not';
    
89. Edit3.Text:=IntToStr( Not StrToInt(Edit1.Text) );
    
90. end;
    
91. 
    
92. procedure TForm1.Button6Click(Sender: TObject);
    
93. begin
    
94. Label1.Caption:='And';
    
95. Edit3.Text:=InttOStr(StrToInt(Edit1.Text) And StrToInt(Edit2.Text));
    
96. end;
    
97. 
    
98. procedure TForm1.Button7Click(Sender: TObject);
    
99. begin
    
100. Label1.Caption:='or';
     
101. Edit3.Text:=IntToStr(StrToInt(Edit1.Text) Or StrToInt(Edit2.Text));
     
102. end;
     
103. 
     
104. procedure TForm1.Button8Click(Sender: TObject);
     
105. begin
     
106. Label1.Caption:='xor';
     
107. Edit3.Text:=IntToStr(StrToInt(Edit1.Text) Xor StrToInt(Edit2.Text));
     
108. end;
     
109. 
     
110. procedure TForm1.Button9Click(Sender: TObject);
     
111. begin
     
112. Label1.Caption:='shl';
     
113. Edit3.Text:='此功能不会写';
     
114. //Edit3.Text:=StrToInt(IntToStr(Edit1.Text) Shl IntToStr(Edit2.Text)); //向左位移这样也是错的
     
115. //Edit3.Text:=StrToInt( Shl IntToStr(Edit1.Text) ）;//这样也是错的
     
116. end;
     
117. 
     
118. procedure TForm1.Edit1Click(Sender: TObject);
     
119. begin
     
120. Edit1.Text:='';
     
121. end;
     
122. 
     
123. procedure TForm1.Edit2Click(Sender: TObject);
     
124. begin
     
125. Edit2.Text:='';
     
126. end;
     
127. 
     
128. procedure TForm1.Edit3Click(Sender: TObject);
     
129. begin
     
130. Edit3.Text:='';
     
131. end;
     
132. 
     
133. end.
     

复制代码

问题1：向左位移（shl）函数和向右位移（shr）函数怎么用，在源码里那几行我有注释，课内小甲鱼老师也没有讲解。

问题2：关于Not、And、Or、Xor、Shl、Shr的算法，有没有详细一点的讲解，视频看了3遍，看的时候我倒是能记住，一转头就忘了，一头雾水所有东西都混在一起了，特别是And，那个按位取反好像还要加一减一什么的，还有符号位，我高中没毕业....是在弄不清

问题3：我用的是Rad Studio xe6，也就是Delphi xe6，我写出来的程序就是计算器这种简单的程序都有10.2MB，小甲鱼老师视频里我记得好像是520KB左右，我也问过别人别人问我是不是在debug模式下编译的，xe6默认的生成文件夹的名字就是‘debug’，然后他就叫我去看看是不是在deug模式下编译的就没声了，我也不知道是这个模式下编译的程序是会比较大还是比较小，有没有什么解决办法，写好的程序都传不上论坛了。





写好的程序已经上传到360云盘，有兴趣的朋友可以下载看看。
http://yunpan.cn/QakyTnUpN3dp6 （提取码：f6ea）

无所谓无的

是 Delphi吧！！！

无所谓无的

Debug 编译的 很大·！！用Release 应该是 2M 多点！！

头号甜心.Beauti

无所谓无的 发表于 2014-8-19 23:23
Debug 编译的 很大·！！用Release 应该是 2M 多点！！

感谢你  我百度到现在终于找到在哪里切换了

comeheres

光看视频不行，同时找本书，推荐delphi5开发人员指南、delphi精要等等

comeheres

delphi版本越高，编译出来的程序体积也越大，不过编译Release版，再用压缩壳压缩下程序，大小也能接受。。。。

头号甜心.Beauti

comeheres 发表于 2014-8-20 00:02
delphi版本越高，编译出来的程序体积也越大，不过编译Release版，再用压缩壳压缩下程序，大小也能接受。。 ...

请问你知道怎样吧Autosize的默认属性设置为False吗

cable5881

我也才刚刚学习，先收藏哈！！！

小栗子

路过  支持下，，，

comeheres

头号甜心.Beauti 发表于 2014-8-20 00:14
请问你知道怎样吧Autosize的默认属性设置为False吗

要改源码吧，或者已经继承下该控件的基类，自己写个新控件

comeheres

自己 打成了 已经，额

irvine726

谢谢分享

irvine726

谢谢分享

gyixue

学习一下