| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

как ;написать проверку [D6]

mila ©   (2002-11-28 16:03:00) 

type
TDayOfWeek = (Sun, Mon, Tue, Wed, Thu, Fri, Sat);
TDaysOfWeek = set of TDayOfWeek;

type
tmyrec=record
days : TDaysOfWeek;
end;

function getdayweek:TDaysOfWeek;
begin
case DayOfWeek(Now) of
1: result:=[Sun];
2: result:=[Mon];
3: result:=[Tue];
4: result:=[Wed];
5: result:=[Thu];
6: result:=[Fri];
7: result:=[Sat];
end;
end;

var myrec:tmyrec;

myrec.days=[Sun,Sat,Thu];

как мне теперь написать проверку, чтобы определить, что текущий день недели, который я получаю с помощью GetDayWeek попадает в интервал, который указан в myrec.days ?

---

mila   (2002-11-28 16:27:00) [1]

Игорю Шевченко мои скромные благодарности :)

---

Игорь Шевченко   (2002-11-28 16:21:00) [2]

Но лучше так

function getdayweek:TDayOfWeek;
begin
case DayOfWeek(Now) of
1: result:=Sun;
2: result:=Mon;
3: result:=Tue;
4: result:=Wed;
5: result:=Thu;
6: result:=Fri;
7: result:=Sat;
end;
end;


Тогда
if GetDayOfWeek in mydata.myrec.days then
Попадает

---

exit   (2002-11-28 16:20:00) [3]

> :mydata.myrec.days
А где у record"а tmydata -> myrec?

---

ggrisha   (2002-11-28 16:20:00) [4]

if (getdayweek in mydata.dni.days) then ...

---

Игорь Шевченко   (2002-11-28 16:19:00) [5]

if (getdayweek * mydata.myrec.days) <> [] then
Попадает
else
Не попадает

---

mila   (2002-11-28 16:16:00) [6]

Извените, я неправильно написала.

Структура немного другая:

type
tmyrec=record
days : TDaysOfWeek;
lastrun : tdatetime;
end;

type
tmydata=record
names:string;
dni:tmyrec;
end;

var mydata:tmydata;

//
if (getdayweek in mydata.myrec.days) then ...

при попытке компиляции дельфи ругается:
Incompatible types...

---

Игорь Шевченко   (2002-11-28 16:09:00) [7]

in

---

MBo   (2002-11-28 16:09:00) [8]

in

---

Smithson   (2002-11-28 16:09:00) [9]

if GetDayWeek in MyRec then // попадает
else // Не попадает.

---

Наверх