程序有点长

shzbg1341810374

1. unit Unit1;
   
2. 
   
3. interface
   
4. 
   
5. uses
   
6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   
7.   Dialogs, ExtCtrls, StdCtrls;
   
8. 
   
9. type
   
10.   TForm1 = class(TForm)
    
11.     btn1: TButton;
    
12.     btn2: TButton;
    
13.     btn3: TButton;
    
14.     btn4: TButton;
    
15.     pnl1: TPanel;
    
16.     lbl1: TLabel;
    
17.     tmr1: TTimer;
    
18.     tmr2: TTimer;
    
19.     procedure btn4Click(Sender: TObject);
    
20.     procedure btn1Click(Sender: TObject);
    
21.     procedure btn2Click(Sender: TObject);
    
22.     procedure btn3Click(Sender: TObject);
    
23.     procedure tmr1Timer(Sender: TObject);
    
24.     procedure tmr2Timer(Sender: TObject);
    
25.     procedure FormCreate(Sender: TObject);
    
26.   private
    
27.     { Private declarations }
    
28.   public
    
29.     { Public declarations }
    
30.   end;
    
31. 
    
32. var
    
33.   Form1: TForm1;
    
34. 
    
35. implementation
    
36. 
    
37. {$R *.dfm}
    
38. 
    
39. procedure TForm1.btn4Click(Sender: TObject);
    
40. begin
    
41.     Close ;
    
42. end;
    
43. 
    
44. procedure TForm1.btn1Click(Sender: TObject);
    
45. var
    
46.   pre : TDateTime ;
    
47.   year, month, day : Word;
    
48.   temp : string ;
    
49. begin
    
50.     tmr1.Enabled := False ;
    
51.     tmr2.Enabled := False ;
    
52.     pre := Now;
    
53.     DecodeDate(pre,year,month,day);
    
54.     temp := IntToStr(year)+'.'+ IntToStr(month)+'.'+ IntToStr(day);
    
55.     lbl1.Caption := temp;
    
56. 
    
57. end;
    
58. 
    
59. procedure TForm1.btn2Click(Sender: TObject);
    
60. var
    
61.   pre: TDateTime ;
    
62.   hour,min,sec,msec: Word;
    
63.   temp: string ;
    
64.   shour,smin,ssec: string ;
    
65. begin
    
66.     tmr1.Enabled  := True ;
    
67.     tmr2.Enabled  := False ;
    
68.     pre := Now ;
    
69.     DecodeTime(pre,hour,min,sec,msec);
    
70.     if sec < 10 then
    
71.       ssec := '0'+ IntToStr(sec)
    
72.     else
    
73.       ssec := IntToStr(sec);
    
74.     if min < 10 then
    
75.       smin := '0'+ IntToStr(min)
    
76.     else
    
77.       smin := IntToStr(min);
    
78.     if hour < 10 then
    
79.         shour := '0'+ IntToStr(hour)
    
80.     else
    
81.         shour := IntToStr(hour);
    
82.     temp := shour+':'+ smin+':'+ ssec;
    
83.     lbl1.Caption := temp;
    
84. 
    
85. end;
    
86. 
    
87. procedure TForm1.btn3Click(Sender: TObject);
    
88. var
    
89.   temp1,temp2: string ;
    
90.   pre : TDateTime ;
    
91.   year,month,day,hour,min,sec,msec : Word;
    
92.   shour,smin,ssec: string ;
    
93. begin
    
94.     pre := Now;
    
95.     DecodeDate(pre,year,month,day);
    
96.     temp1 := IntToStr(year)+'.'+ IntToStr(month)+'.'+ IntToStr(day);
    
97.     tmr1.Enabled  := False  ;
    
98.     tmr2.Enabled  := True ;
    
99. 
    
100.     DecodeTime(pre,hour,min,sec,msec);
     
101.     if sec < 10 then
     
102.       ssec := '0'+ IntToStr(sec)
     
103.     else
     
104.       ssec := IntToStr(sec);
     
105.     if min < 10 then
     
106.       smin := '0'+ IntToStr(min)
     
107.     else
     
108.       smin := IntToStr(min);
     
109.     if hour < 10 then
     
110.         shour := '0'+ IntToStr(hour)
     
111.     else
     
112.         shour := IntToStr(hour);
     
113.     temp2 := shour+':'+ smin+':'+ ssec;
     
114.     lbl1.Caption := temp1 +' '+ temp2;
     
115. end;
     
116. 
     
117. procedure TForm1.tmr1Timer(Sender: TObject);
     
118. begin
     
119.     btn2Click(Sender );
     
120. end;
     
121. 
     
122. procedure TForm1.tmr2Timer(Sender: TObject);
     
123. begin
     
124.     btn3Click(Sender );
     
125. end;
     
126. 
     
127. procedure TForm1.FormCreate(Sender: TObject);
     
128. begin
     
129.     tmr1.Enabled := False ;
     
130.     tmr2.Enabled := False ;
     
131. end;
     
132. 
     
133. end.

复制代码