case of + DayOfTheWeek, неработает Опции

[compiler]

есть урывок <<прблемного>> кода...

case DayOfTheWeek(Now) of
	'1' : begin lgr:= 0; pgr:=7; end
	'2' : lgr:=-1; pgr:=6;
	'3' : lgr:=-3; pgr:=5;
	'4' : lgr:=-4; pgr:=4;
	'5' : lgr:=-5; pgr:=3;
	'6' : lgr:=-6; pgr:=2;
	'7' : lgr:=-7; pgr:=1;
end;

наверное надо раставить блоки... но все равно не работает...
заранее благодарен.

P.S. может case ищё эти типы не обрабатывает...

Сообщение отредактировано: compiler - 3.03.2007 19:16

[TarasBer]

Мне не совсем понятно, зачем здесь кейс. В данном конкретном случае можно обойтись

DOTW :=  DayOfTheWeek(Now)
if (DOTW >= 1) and (DOTW <= 7) then begin
  Lgr := 1 - DOTW - byte(DOTW > 2);
  Pgr := 8 - DOTW;
end;

.

Сообщение отредактировано: TarasBer - 3.03.2007 19:45

[compiler]

Мне не совсем понятно, зачем здесь кейс. В данном конкретном случае можно обойтись

у меня были подобные строчки...

lgr := 1 - DayOfTheWeek(Now);
pgr := lgr + 7;

но позже возникла необходимость вставлять в действия еще операторы(в примере они не приведины, для краткости...) + читабельность, сейчас необходимость пропала (или еще нет:) ),вобщем в разработке оба варианта...

P.S. что делает строчка

- byte(DOTW > 2)