[SKIPtr]

драсте подскажите как лучше програме хранить в памяти список выбраных дней недели

[NumLock]

Битовая маска в байте.

[SKIPtr]

о наконец вспомнил
надо попробывать через множества

[Alegun]

Да не, через битмаску и надёжнее и компактнее

[lmikle]

Угу, только немного геморойнее.
А через множества, оно мож и не совсем оптимально, зато красиво и читабельно:

Код:

type
  TSelectedDayOfWeek = (sdwMonday, sdwTuesday, sdwWenesday, sdwThirsday, sdwFriday, sdwSaturday, sdwSunday);
  TSetOfSelectedDayOfWeek = Set Of SelectedDayOfWeek;

var
  Days : TSetOfSelectedDayOfWeek;
begin
  Days := [sdwMonday, sdwSaturday, sdwSunday];
  Days := Days + [sdwTuesday];
  Days := Days - [sdwMonday];
end;

[Bargest]

Да не, через битмаску и надёжнее и компактнее

Особенно учитывая, что в паскале множество и есть обертка над битмаской. По крайней мере раньше точно так было.

[SKIPtr]

Сообщение от lmikle

Угу, только немного геморойнее.
А через множества, оно мож и не совсем оптимально, зато красиво и читабельно:

Код:

type
  TSelectedDayOfWeek = (sdwMonday, sdwTuesday, sdwWenesday, sdwThirsday, sdwFriday, sdwSaturday, sdwSunday);
  TSetOfSelectedDayOfWeek = Set Of SelectedDayOfWeek;

var
  Days : TSetOfSelectedDayOfWeek;
begin
  Days := [sdwMonday, sdwSaturday, sdwSunday];
  Days := Days + [sdwTuesday];
  Days := Days - [sdwMonday];
end;

надо будет подумать
сохранять через множество номера дня недели
потому шо надо будет найти ближайщий выбраный день недели
и получить его реальную дату

[lmikle]

тогда в описание emun'а добавь значения, ну что бы "прибить" их:

Код:

type
  TSelectedDayOfWeek = (sdwMonday = 1, sdwTuesday = 2, sdwWenesday = 3, sdwThirsday = 4, sdwFriday = 5, sdwSaturday = 6, sdwSunday = 7);

Тогда:
1. Можно через Ord получить значение по типу
2. Совпадает с функцией DayOfWeek (или DayOfTheWeek - проверь по доке) из стандартного модуля DateUtils. Кстати, там таки куча полезных функций есть.
Ну получит по текущему дню дату ближайшего из списка - вообше простейшая арифметика. типа

Код:

NextDate := Now + (MinSelectedGreaterThen(DaytOfWeek(Now)) - DaytOfWeek(Now));

Вроде ничего не напутал...

[SKIPtr]

подскажите а шо за функция MinSelectedGreaterThen

[lmikle]

А это тебе надо будет написать. Выбирает мин день в сете, который больше, чем указанный в параметре.
Мне казалось, что я достаточно прозрачно название функции придумал.

[M.A.D.M.A.N.]

Сообщение от Bargest

Особенно учитывая, что в паскале множество и есть обертка над битмаской. По крайней мере раньше точно так было.

Так и есть.

[lmikle]

Да, вроде, уже не совсем. Вроде как emun теперь до 256 значений поддерживает. А в этом случае set уже не на простой битовой маске строится...

[Bargest]

Сообщение от lmikle

Да, вроде, уже не совсем. Вроде как emun теперь до 256 значений поддерживает. А в этом случае set уже не на простой битовой маске строится...

В паскале set был простой битмаской над 32-байтовым массивом. 32 по 8 бит - 256 бит. Как раз.

[SKIPtr]

Сообщение от Bargest

В паскале set был простой битмаской над 32-байтовым массивом. 32 по 8 бит - 256 бит. Как раз.

вот это самый раз