Скачать: CL | DM;

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

← →
Игорь нтк   (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]

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

---

← →
DVM ©   (2005-02-02 16:21) [6]

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

А если 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;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.024 c