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

Время   Найти похожие ветки 

← →
!Trinix ©   (2005-06-10 15:09) [0]

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, помогите пожалуйста.

---

← →
Ega23 ©   (2005-06-10 15:11) [1]

КАКОЙ КОШМАР!!!!!!!

---

← →
panov ©   (2005-06-10 15:17) [2]

1. Оформи тему вопроса.
2. Вопрос лучше задай так: "Хочу сделать то-то и то-то, не получается то-то и то-то."

---

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

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



Память: 0.45 MB
Время: 0.043 c