как написать проверку

← →
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]

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

← →
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]

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

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