论坛 › Delphi交流 › 程序有点长

shzbg1341810374 发表于 2015-12-24 09:14:09

程序有点长

本帖最后由 shzbg1341810374 于 2015-12-24 09:16 编辑

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls;

type
TForm1 = class(TForm)
    btn1: TButton;
    btn2: TButton;
    btn3: TButton;
    btn4: TButton;
    pnl1: TPanel;
    lbl1: TLabel;
    tmr1: TTimer;
    tmr2: TTimer;
    procedure btn4Click(Sender: TObject);
    procedure btn1Click(Sender: TObject);
    procedure btn2Click(Sender: TObject);
    procedure btn3Click(Sender: TObject);
    procedure tmr1Timer(Sender: TObject);
    procedure tmr2Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
private
    { Private declarations }
public
    { Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btn4Click(Sender: TObject);
begin
    Close ;
end;

procedure TForm1.btn1Click(Sender: TObject);
var
pre : TDateTime ;
year, month, day : Word;
temp : string ;
begin
    tmr1.Enabled := False ;
    tmr2.Enabled := False ;
    pre := Now;
    DecodeDate(pre,year,month,day);
    temp := IntToStr(year)+'.'+ IntToStr(month)+'.'+ IntToStr(day);
    lbl1.Caption := temp;

end;

procedure TForm1.btn2Click(Sender: TObject);
var
pre: TDateTime ;
hour,min,sec,msec: Word;
temp: string ;
shour,smin,ssec: string ;
begin
    tmr1.Enabled:= True ;
    tmr2.Enabled:= False ;
    pre := Now ;
    DecodeTime(pre,hour,min,sec,msec);
    if sec < 10 then
      ssec := '0'+ IntToStr(sec)
    else
      ssec := IntToStr(sec);
    if min < 10 then
      smin := '0'+ IntToStr(min)
    else
      smin := IntToStr(min);
    if hour < 10 then
      shour := '0'+ IntToStr(hour)
    else
      shour := IntToStr(hour);
    temp := shour+':'+ smin+':'+ ssec;
    lbl1.Caption := temp;

end;

procedure TForm1.btn3Click(Sender: TObject);
var
temp1,temp2: string ;
pre : TDateTime ;
year,month,day,hour,min,sec,msec : Word;
shour,smin,ssec: string ;
begin
    pre := Now;
    DecodeDate(pre,year,month,day);
    temp1 := IntToStr(year)+'.'+ IntToStr(month)+'.'+ IntToStr(day);
    tmr1.Enabled:= False;
    tmr2.Enabled:= True ;

    DecodeTime(pre,hour,min,sec,msec);
    if sec < 10 then
      ssec := '0'+ IntToStr(sec)
    else
      ssec := IntToStr(sec);
    if min < 10 then
      smin := '0'+ IntToStr(min)
    else
      smin := IntToStr(min);
    if hour < 10 then
      shour := '0'+ IntToStr(hour)
    else
      shour := IntToStr(hour);
    temp2 := shour+':'+ smin+':'+ ssec;
    lbl1.Caption := temp1 +' '+ temp2;
end;

procedure TForm1.tmr1Timer(Sender: TObject);
begin
    btn2Click(Sender );
end;

procedure TForm1.tmr2Timer(Sender: TObject);
begin
    btn3Click(Sender );
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
    tmr1.Enabled := False ;
    tmr2.Enabled := False ;
end;

end.

查看完整版本: 程序有点长