计算器（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.