Тема: Отображение дня недели в Statusbar
Показать сообщение отдельно
  #2  
Старый 26.11.2010, 14:41
Аватар для dr. F.I.N.
dr. F.I.N. dr. F.I.N. вне форума
I Like it!
  
Регистрация: 12.12.2009
Адрес: Россия, г. Новосибирск
Сообщения: 663
Версия Delphi: D6/D7
Репутация: 26643
По умолчанию
Код:
const RusDay : array [0..6] of String = ('вс','пн','вт','ср','чт','пт','сб');
...
StatusBar1.Panels.Items[1].Text:=DateToStr(Date)+' '+TimeToStr(Time)+' '+RusDay[DayofWeek(Now)];
__________________
Грамотно поставленный вопрос содержит не менее 50% ответа.
Грамотно поставленная речь вызывает уважение, а у некоторых даже зависть.
Ответить с цитированием