Delphi 在StatusBar1.Panels上显示日期时间星期

Delphi 在StatusBar1.Panels上显示日期时间星期

procedure TForm1.Timer1Timer(Sender: TObject);
var
ADate:TDateTime;
ss:string;
Days:array[1..7] of string;
begin
days[1]:='星期日';
days[2]:='星期一';
days[3]:='星期二';
days[4]:='星期三';
days[5]:='星期四';
days[6]:='星期五';
days[7]:='星期六';
ADate:=strtodate(FormatDateTime('yyyy-mm-dd',date));
ss:=FormatDateTime('yyyy"年"m"月"d"日"hh:nn:ss',now);
StatusBar1.Panels[1].Text:='当前时间:'+ss+#32+days[DayOfWeek(ADate)];

end;