procedure TForm1.FormShow(Sender: TObject);
const
cWeek:array[1..7] of string =
('星期天', '星期一', '星期二', '星期三', '星期四', '星期五', '星期六');
begin
rzstspn1.Caption:=cWeek[DayofWeek(Now)];
end;
delphi 让程序状态栏显示今天星期几
最新推荐文章于 2023-04-05 15:12:35 发布
procedure TForm1.FormShow(Sender: TObject);
const
cWeek:array[1..7] of string =
('星期天', '星期一', '星期二', '星期三', '星期四', '星期五', '星期六');
begin
rzstspn1.Caption:=cWeek[DayofWeek(Now)];
end;