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

как написать проверку   Найти похожие ветки 

← →
mila   (2002-11-28 16:03) [0]

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 ?

---

← →
Игорь Шевченко ©   (2002-11-28 16:09) [1]

in

---

← →
MBo ©   (2002-11-28 16:09) [2]

in

---

← →
Smithson ©   (2002-11-28 16:09) [3]

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

---

← →
mila   (2002-11-28 16:16) [4]

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

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

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:19) [5]

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

---

← →
exit   (2002-11-28 16:20) [6]

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

---

← →
ggrisha ©   (2002-11-28 16:20) [7]

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

---

← →
Игорь Шевченко ©   (2002-11-28 16:21) [8]

Но лучше так

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
Попадает

---

← →
mila   (2002-11-28 16:27) [9]

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

---

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

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



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