Question

delphi 星期几的问题，

procedure TForm1.Timer3Timer(Sender: TObject);
begin
self.StatusBar1.Panels[0].Text:=' 欢迎使用';
self.StatusBar1.Panels[1].Text:=' 正努力完善';
self.StatusBar1.Panels[2].Text:=' 日期： '+Datetostr(date);
self.StatusBar1.Panels[3].Text:=' 时间： '+Timetostr(now);
self.StatusBar1.Panels[4].Text:=' 星期： '+DayOfWeek(Now);
end;
星期几显示不出来呢？日期时间都正常，请指教，多谢！

Answer 1

function GetWeek: string;
begin
case SysUtils.DayOfWeek(now) of
1: Result := '星期天';
2: Result := '星期一';
3: Result := '星期二';
4: Result := '星期三';
5: Result := '星期四';
6: Result := '星期五';
7: Result := '星期六';
end;
end;

Answer 2

同意一楼的回答，请把他提供的函数加到你的代码中，并把显示星期的一行改为：
self.StatusBar1.Panels[4].Text:=GetWeek;

Answer 3

self.StatusBar1.Panels[4].Text:='weekday'+inttostr(DayOfWeek(Now));