Delphi ----Timer 实时显示 年月日-时分秒（刚刚学习不知道好不好，欢迎点评！）

procedure TForm1.Timer1Timer(Sender: TObject);

var

  Present: TDateTime;
  Year, Month, Day, Hour, Min, Sec, MSec: Word;
  hour1,min1,sec1:string;

begin
 

  Present:= Now;
  DecodeDate(Present, Year, Month, Day);
  DecodeTime(Present, Hour, Min, Sec, MSec);
  hour1:=inttostr(hour);
 

  if length(hour1)=1 then

     hour1:='0'+hour1;
     min1:=inttostr(min);

  if length(min1)=1 then

     min1:='0'+min1;
     sec1:=inttostr(sec);
 

  if length(sec1)=1 then

     sec1:='0'+sec1;

     form1.StatusBar1.Panels[1].Text:='【'+inttostr(year)+'年'+inttostr(month)+'月'+inttostr(day)+'日'
     +hour1+'时'+min1+'分'+sec1+'秒】';

 

end;