delphi 星期几的问题,

procedureTForm1.Timer3Timer(Sender:TObject);beginself.StatusBar1.Panels[0].Text:='欢迎使... 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;
星期几显示不出来呢?日期时间都正常,请指教,多谢!
展开
 我来答
xiaojun5556
推荐于2016-06-25
知道答主
回答量:24
采纳率:0%
帮助的人:9.9万
展开全部
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;
ZESTRON
2024-09-04 广告
在Dr. O.K. Wack Chemie GmbH,我们高度重视ZESTRON的表界面分析技术。该技术通过深入研究材料表面与界面的性质,为提升产品质量与可靠性提供了有力支持。ZESTRON的表界面分析不仅涵盖了相变化、化学反应、吸附与解吸... 点击进入详情页
本回答由ZESTRON提供
橘子冰的一隅角落eQ
2012-07-03 · TA获得超过848个赞
知道小有建树答主
回答量:761
采纳率:0%
帮助的人:517万
展开全部
同意一楼的回答,请把他提供的函数加到你的代码中,并把显示星期的一行改为:
self.StatusBar1.Panels[4].Text:=GetWeek;
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
百度网友3b8e180e3
2012-07-03 · 超过18用户采纳过TA的回答
知道答主
回答量:94
采纳率:0%
帮助的人:48.2万
展开全部
self.StatusBar1.Panels[4].Text:='weekday'+inttostr(DayOfWeek(Now));
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(1)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式