计算器（delphi）

1  unit Unit1;
2
3 interface
4
5 uses
6   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
7   Dialogs, StdCtrls, bsSkinData, BusinessSkinForm, Mask, bsSkinBoxCtrls, bscalc,
8   bsSkinCtrls;
9
10 type
11   TForm1 = class(TForm)
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     Button11: TButton;
22     Button12: TButton;
23     Button13: TButton;
24     Button14: TButton;
25     Button15: TButton;
26     Button16: TButton;
27     Button17: TButton;
28     Button18: TButton;
29     Button19: TButton;
30     Button20: TButton;
31     Button21: TButton;
32     Button22: TButton;
33     bsBusinessSkinForm1: TbsBusinessSkinForm;
34     bsSkinData1: TbsSkinData;
35     Edit1: TbsSkinEdit;
36     bsCompressedStoredSkin1: TbsCompressedStoredSkin;
37     Edit2: TbsSkinEdit;
38     Edit3: TbsSkinEdit;
39     Edit4: TbsSkinEdit;
40     Label1: TLabel;
41     Button1: TButton;
42     Button23: TButton;
43     procedure Button1Click(Sender: TObject);
44     procedure FormCreate(Sender: TObject);
45     procedure Button2Click(Sender: TObject);
46     procedure Button3Click(Sender: TObject);
47     procedure Button4Click(Sender: TObject);
48     procedure Button5Click(Sender: TObject);
49     procedure Button6Click(Sender: TObject);
50     procedure Button7Click(Sender: TObject);
51     procedure Button8Click(Sender: TObject);
52     procedure Button9Click(Sender: TObject);
53     procedure Button10Click(Sender: TObject);
54     procedure Button11Click(Sender: TObject);
55     procedure Button12Click(Sender: TObject);
56     procedure Button13Click(Sender: TObject);
57     procedure Button14Click(Sender: TObject);
58     procedure Button15Click(Sender: TObject);
59     procedure Button16Click(Sender: TObject);
60     procedure Edit1Change(Sender: TObject);
61     procedure Edit3Change(Sender: TObject);
62     procedure Edit1Enter(Sender: TObject);
63     procedure Edit3Enter(Sender: TObject);
64     procedure Button17Click(Sender: TObject);
65     procedure Button18Click(Sender: TObject);
66     procedure Button19Click(Sender: TObject);
67     procedure Button20Click(Sender: TObject);
68     procedure Button21Click(Sender: TObject);
69     procedure Button22Click(Sender: TObject);
70     procedure bsSkinButton1Click(Sender: TObject);
71     procedure Button23Click(Sender: TObject);
72   private
73     { Private declarations }
74   public
75     { Public declarations }
76
77   end;
78
79 var
80   Form1: TForm1;
81   str1:String;
82    str2:String;
83     int1:real;
84      int2:real;
85      bo:real;
86     result:real;
87 implementation
88
89 {$R *.dfm}
90
91 procedure TForm1.Button1Click(Sender: TObject);
92 begin
93
94 if bo=0 then
95  begin
96   str1:=str1+'1';
97   Edit1.Text:=str1;
98   end
99 Else
100   begin
101   str2:=str2+'1';
102   Edit3.Text:=str2;
103   end
104
105
106 end;
107
108 procedure TForm1.FormCreate(Sender: TObject);
109 begin
110
111 int1:=0;
112  int2:=0;
113  bo:=0;
114  SetWindowLong(Edit1.Handle,GWL_STYLE,GetWindowLong(Edit1.Handle,GWL_STYLE) or Es_right);
115  SetWindowLong(Edit2.Handle,GWL_STYLE,GetWindowLong(Edit2.Handle,GWL_STYLE) or Es_right);
116  SetWindowLong(Edit3.Handle,GWL_STYLE,GetWindowLong(Edit3.Handle,GWL_STYLE) or Es_right);
117  SetWindowLong(Edit4.Handle,GWL_STYLE,GetWindowLong(Edit4.Handle,GWL_STYLE) or Es_right);
118 end;
119
120 procedure TForm1.Button20Click(Sender: TObject);
121 begin
122 edit2.Text:='';
123 edit3.Text:='';
124 int2:=0;
125 edit4.Text:= FormatFloat('0.00000',1/int1) ;
126 end;
127
128 procedure TForm1.Button21Click(Sender: TObject);
129 begin
130   edit2.Text:='';
131 edit3.Text:='';
132 int2:=0;
133 edit4.Text:= FormatFloat('0.00000',Sqrt(int1)) ;
134 end;
135
136 procedure TForm1.Button22Click(Sender: TObject);
137 begin
138 result:=int1*int2/100;
139  Edit4.Text:=FormatFloat('0.00000',result);
140 end;
141
142 procedure TForm1.Button23Click(Sender: TObject);
143 begin
144 if bo=0 then
145     edit1.Text:=''
146     else
147     edit3.Text:='';
148
149 end;
150
151 procedure TForm1.Button2Click(Sender: TObject);
152
153
154 begin
155 if bo=0 then
156  begin
157   str1:=str1+'2';
158   Edit1.Text:=str1;
159   end
160 Else
161   begin
162   str2:=str2+'2';
163   Edit3.Text:=str2;
164   end
165 end;
166
167 procedure TForm1.Button3Click(Sender: TObject);
168 begin
169 if bo=0 then
170  begin
171   str1:=str1+'3';
172   Edit1.Text:=str1;
173   end
174 Else
175   begin
176   str2:=str2+'3';
177   Edit3.Text:=str2;
178   end
179 end;
180
181 procedure TForm1.Button4Click(Sender: TObject);
182 begin
183 if bo=0 then
184  begin
185   str1:=str1+'4';
186   Edit1.Text:=str1;
187   end
188 Else
189   begin
190   str2:=str2+'4';
191   Edit3.Text:=str2;
192   end
193 end;
194
195 procedure TForm1.Button5Click(Sender: TObject);
196 begin
197  if bo=0 then
198  begin
199   str1:=str1+'5';
200   Edit1.Text:=str1;
201   end
202 Else
203   begin
204   str2:=str2+'5';
205   Edit3.Text:=str2;
206   end
207 end;
208
209 procedure TForm1.Button6Click(Sender: TObject);
210 begin
211 if bo=0 then
212  begin
213   str1:=str1+'6';
214   Edit1.Text:=str1;
215   end
216 Else
217   begin
218   str2:=str2+'6';
219   Edit3.Text:=str2;
220   end
221 end;
222
223 procedure TForm1.Button7Click(Sender: TObject);
224 begin
225 if bo=0 then
226  begin
227   str1:=str1+'7';
228   Edit1.Text:=str1;
229   end
230 Else
231   begin
232   str2:=str2+'7';
233   Edit3.Text:=str2;
234   end
235 end;
236
237 procedure TForm1.Button8Click(Sender: TObject);
238 begin
239 if bo=0 then
240  begin
241   str1:=str1+'8';
242   Edit1.Text:=str1;
243   end
244 Else
245   begin
246   str2:=str2+'8';
247   Edit3.Text:=str2;
248   end
249 end;
250
251 procedure TForm1.Button9Click(Sender: TObject);
252 begin
253 if bo=0 then
254  begin
255   str1:=str1+'9';
256   Edit1.Text:=str1;
257   end
258 Else
259   begin
260   str2:=str2+'9';
261   Edit3.Text:=str2;
262   end
263 end;
264
265 procedure TForm1.Edit1Change(Sender: TObject);
266 begin
267     str1:=edit1.Text;
268     if edit1.Text<>'' then
269    int1:=strtofloat(edit1.Text)
270    else
271    int1:=0;
272
273 end;
274
275 procedure TForm1.Edit1Enter(Sender: TObject);
276 begin
277     bo:=0;
278 end;
279
280 procedure TForm1.Edit3Change(Sender: TObject);
281 begin
282    str2:=edit3.Text;
283   if edit3.Text<>'' then
284  int2:=strtofloat(edit3.Text)
285  else
286    int2:=0;
287
288 end;
289
290 procedure TForm1.Edit3Enter(Sender: TObject);
291 begin
292   bo:=1;
293 end;
294
295 procedure TForm1.bsSkinButton1Click(Sender: TObject);
296 begin
297 if bo=0 then
298  begin
299   str1:=str1+'1';
300   Edit1.Text:=str1;
301   end
302 Else
303   begin
304   str2:=str2+'1';
305   Edit3.Text:=str2;
306   end
307 end;
308
309 procedure TForm1.Button10Click(Sender: TObject);
310 begin
311 if bo=0 then
312  begin
313   str1:=str1+'0';
314   Edit1.Text:=str1;
315   end
316 Else
317   begin
318   str2:=str2+'0';
319   Edit3.Text:=str2;
320   end
321 end;
322
323 procedure TForm1.Button11Click(Sender: TObject);
324 begin
325  bo:=1;
326 Edit2.Text:='+';
327 end;
328
329 procedure TForm1.Button12Click(Sender: TObject);
330 begin
331 bo:=1;
332 Edit2.Text:='-';
333 end;
334
335 procedure TForm1.Button13Click(Sender: TObject);
336 begin
337 bo:=1;
338 Edit2.Text:='*';
339 end;
340
341 procedure TForm1.Button14Click(Sender: TObject);
342 begin
343 bo:=1;
344 Edit2.Text:='/';
345 end;
346
347 procedure TForm1.Button15Click(Sender: TObject);
348 begin
349
350
351 if  Edit2.Text='+' then
352   begin
353      result:=int1+int2;
354      Edit4.Text:=floattostr(result);
355   end ;
356
357
358  if  Edit2.Text='-' then
359     begin
360      result:=int1-int2;
361      Edit4.Text:=floattostr(result);
362   end ;
363    if  Edit2.Text='*' then
364      begin
365      result:=int1*int2;
366      Edit4.Text:=floattostr(result);
367     end ;
368    if ( Edit2.Text='/') and (int2<>0 ) then
369      begin
370      result:=int1/int2;
371         {保留5位小数}
372     Edit4.Text:=FormatFloat('0.00000',result);
373     end  ;
374
375     if ( Edit2.Text='/') and (int2=0 ) then
376      begin
377        Application.MessageBox('除数不能为0!','错误提示',MB_OKCANCEL);
378     end  ;
379
380
381  end;
382
383
384 procedure TForm1.Button16Click(Sender: TObject);
385 begin
386
387
388    bo:=0;
389    Edit1.Text:='';
390    Edit2.Text:='';
391    Edit3.Text:='';
392    Edit4.Text:='';
393    int1:=0;
394    int2:=0;
395    result:=0;
396 end;
397
398 procedure TForm1.Button17Click(Sender: TObject);
399 begin
400   if bo=0 then
401       edit1.Text:= Copy( edit1.Text, 1, length( Edit1.text )-1 ) {截取}
402   else
403        edit3.Text:= Copy( edit3.Text, 1, length( Edit3.text )-1 );
404
405
406 end;
407
408 procedure TForm1.Button18Click(Sender: TObject);
409 begin
410 if bo=0 then
411  begin
412   str1:=str1+'.';
413   Edit1.Text:=str1;
414   end
415 Else
416   begin
417   str2:=str2+'.';
418   Edit3.Text:=str2;
419   end
420 end;
421
422 procedure TForm1.Button19Click(Sender: TObject);
423 begin
424 if bo=0 then
425   begin
426     if int1>0 then
427     edit1.Text:='-'+edit1.Text
428     else
429     begin
430       int1:=0-strtofloat(edit1.Text);
431       edit1.Text:=floattostr(int1) ;
432     end;
433
434   end
435
436   else
437   begin
438       if int2>0 then
439     edit3.Text:='-'+edit3.Text
440     else
441     begin
442       int2:=0-strtofloat(edit3.Text);
443       edit3.Text:=floattostr(int2) ;
444     end;
445   end;
446 end;
447
448 end.