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 -