[true]

Как сделать чтобы он писал день недели по русски и вообще выводил там день недели?

и еще вопрос:

Код:

StatusBar1.Panels.Items[1].Text:=DateToStr(Date)+' '+TimeToStr(Time)+' '+DayofWeek(Now);

Почему код не работает?

[dr. F.I.N.]

Код:

const RusDay : array [0..6] of String = ('вс','пн','вт','ср','чт','пт','сб');
...
StatusBar1.Panels.Items[1].Text:=DateToStr(Date)+' '+TimeToStr(Time)+' '+RusDay[DayofWeek(Now)];

[true]

О спасибо большое

А почему код не работает? мне эт нужно в целях изучения)

[v1s2222]

Код:

StatusBar1.Panels.Items[1].Text:=DateToStr(Date)+' '+TimeToStr(Time)+' '+IntToStr(DayofWeek(Now));

ЗЫ только не забудь саму 2 панель создать в статус баре.

[dr. F.I.N.]

D6, WinXP, работает на все 100%, только ошибся в нумерации.

Код:

procedure TForm1.Button1Click(Sender: TObject);
const
  RusDay : array [1..7] of String = ('вс','пн','вт','ср','чт','пт','сб');
begin
  StatusBar1.Panels.Items[1].Text:=DateToStr(Date)+' '+TimeToStr(Time)+' '+RusDay[DayofWeek(Now)];
end;

[true]

Спасиба большой)

[Страдалецъ]

Вооще-то константы дней недели создавать вторично не требуется. Они уже есть.

Код:

ShortDayNames[DayOfWeek(Now)]
или
LongDayNames[DayOfWeek(Now)]