Текущий архив: 2005.02.20;
Скачать: 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 вся ветка
Текущий архив: 2005.02.20;
Скачать: CL | DM;
Память: 0.48 MB
Время: 0.026 c
