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.
