VPF::Вопрос по множествам - Форум программистов

cemick

Дата 7.7.2009, 11:47 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 416
Регистрация: 6.7.2006
Где: Санкт-Петербург

Репутация: 2
Всего: 6

Возникли проблемы с пониманием множеств. Как например проверить вхождение значения переменной типа Word в множество типа TShiftState.

Следующий вопрос, вот цитата найденная в drkb:
Секрет этого прост: внутреннее устройство множества таково, что каждому его элементу ставится в соответствие один двоичный разряд (один бит); если элемент включен во множество, соответствующий разряд имеет значение 1, в противном случае - 0. В то же время минимальной единицей памяти является один байт, содержащий 8 бит, поэтому компилятор выделил множествам по одному байту, и в результате мощность каждого из них стала равна 8 элементам. Максимальная мощность множества - 256 элементов. Для таких множеств компилятор выделяет по 16 смежных байт

Почему 16 смежных байт? Почему не 32? Если для каждого элемента нужен ровно один разряд, то 32 * 8 = 256

cemick

Дата 7.7.2009, 12:08 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 416
Регистрация: 6.7.2006
Где: Санкт-Петербург

Репутация: 2
Всего: 6

Если (Byte((@ShiftState)^) and Word(Mask[MyValue])) <> 0 то значение в множество входит..

Где Mask = array[1..7] of byte = (1,2,4,8,16,32,64);
А индекс массива содержит мою переменную типа Word

Может так??

Это сообщение отредактировал(а) cemick - 7.7.2009, 12:19

cemick

Дата 7.7.2009, 13:22 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 416
Регистрация: 6.7.2006
Где: Санкт-Петербург

Репутация: 2
Всего: 6

Сделал так, может будет кому полезно:

Код


const Mask: array[1..7] of byte = (1,2,4,8,16,32,64);
var
  n : Integer;
  ShiftState :TShiftState;
begin

  ShiftState := [ssDouble];
  n := Integer(ssDouble) + 1;
  if (Byte((@ShiftState)^) and Mask[n]) <> 0  then
    ShowMessage('Входит!!!')
  else
    ShowMessage('Не входит');
end;

Может все намного проще можно сделать??

Цитата(cemick @ 7.7.2009, 11:47

)

Почему 16 смежных байт? Почему не 32? Если для каждого элемента нужен ровно один разряд, то 32 * 8 = 256

вопрос остается актуален

Alexeis

Дата 8.7.2009, 11:23 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459

Для множества из 256 элементов нужно 32 байта. Все так и есть, можно проверить при помощи sizeof. Он показывает 32.

--------------------

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »