Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

День недели

Игорь нтк © (2005-02-02 10:55:00)
Здравствуйте уважаемые мастера. Подскажите как можно на форме отобразить текущий день недели?
Заранее спасибо

XAN (2005-02-04 22:31:00) [1]
vot primer koda:
ya sam poproboval rabotaet

var
st: SYSTEMTIME;
begin
getSystemTime(st);
label1.caption:= IntToStr(st.wDayOfWeek);
end;

Ivolg (2005-02-02 17:42:00) [2]
procedure TForm1.Button1Click(Sender: TObject);
const
Week:array[0..6] of string=('Суббота','Воскресенье','Понедельник','Вторник','Среда','Четверг','Пятница');
begin
canvas.TextOut(10,10, Week[DayOfWeek(now)]);
end;

DVM (2005-02-02 16:21:00) [3]

> Большое спасибо - работает!!

А если Windows английская или китайская? Лучше день недели спросить у системы.
GetTimeFormat, GetLocaleInfo

Игорь нтк (2005-02-02 13:09:00) [4]
Большое спасибо - работает!!

kukuikar (2005-02-02 11:39:00) [5]
Причем после этого приется обработать числа от 0 до 6, т.к. DayOfWeek() возвращает номер дня недели.
0-Понедельник
и т.п.

MakedoneZ (2005-02-02 11:05:00) [6]
Form.Canvas.TextOut(x,y,DayOfWeek(Now));

Александр Иванов (2005-02-02 10:59:00) [7]
DayOfTheWeek(Now)

Ega23 (2005-02-02 10:56:00) [8]
Form1.Canvas.TextOut('Текущий день недели');

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »