День недели

← →
Игорь нтк (2005-02-02 10:55) [0]

Здравствуйте уважаемые мастера. Подскажите как можно на форме отобразить текущий день недели?
Заранее спасибо

← →
Ega23 © (2005-02-02 10:56) [1]

Form1.Canvas.TextOut("Текущий день недели");

← →
Александр Иванов © (2005-02-02 10:59) [2]

DayOfTheWeek(Now)

← →
MakedoneZ © (2005-02-02 11:05) [3]

Form.Canvas.TextOut(x,y,DayOfWeek(Now));

← →
kukuikar © (2005-02-02 11:39) [4]

Причем после этого приется обработать числа от 0 до 6, т.к. DayOfWeek() возвращает номер дня недели.
0-Понедельник
и т.п.

← →
Игорь нтк (2005-02-02 13:09) [5]

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

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

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

← →
Ivolg (2005-02-02 17:42) [7]

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

← →
XAN (2005-02-04 22:31) [8]

vot primer koda:
ya sam poproboval rabotaet

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

День недели Найти похожие ветки