| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Время [D7, Win2k]
!Trinix © (2005-06-10 15:09:00)type
TCanTime = 0..59;
TDayOfWeek = 1..7;
TCurTime = record
Minutes : TCanTime;
Hours : TCanTime;
Day : TDayOfWeek;
end;
var
t : TCurTime;
procedure TForm1.Timer_TimeTimer(Sender: TObject);
begin
t.Minutes := t.Minutes + 1;
if t.Minutes > 58 then begin
t.Minutes := 0;
t.Hours := t.Hours + 1;
end;
if t.Hours > 23 then begin
t.Hours := 0;
if t.Day = 1 then t.Day := 2;
if t.Day = 2 then t.Day := 3;
if t.Day = 3 then t.Day := 4;
if t.Day = 4 then t.Day := 5;
if t.Day = 5 then t.Day := 6;
if t.Day = 6 then t.Day := 7;
if t.Day = 7 then t.Day := 1;
end;
LabelHour.Caption := IntToStr(t.Hours);
LabelMinutes.Caption := IntToStr(t.Minutes);
case t.Day of
1 : LabelDay.Text := 'пон';
2 : LabelDay.Text := 'втр';
3 : LabelDay.Text := 'срд';
4 : LabelDay.Text := 'чтв';
5 : LabelDay.Text := 'пят';
6 : LabelDay.Text := 'суб';
7 : LabelDay.Text := 'вос';
end;
end;
В LabelDay у меня всегда 0, помогите пожалуйста.
panov (2005-06-10 15:17:00) [1]1. Оформи тему вопроса.
2. Вопрос лучше задай так: "Хочу сделать то-то и то-то, не получается то-то и то-то."
Ega23 (2005-06-10 15:11:00) [2]КАКОЙ КОШМАР!!!!!!!
| |
