Модераторы: Poseidon, Snowy, bems, MetalFan

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Как узнать размерность множества 
:(
    Опции темы
MetalFan
Дата 31.5.2007, 11:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Аццкий Сотона
****


Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 62
Всего: 128
вот накидал универсальный пример, исходя из следующих соображений:
множества в делфи - это "набор" битов, длинной до 256.
соотв. достаточно узнать указатель и размер(занимаемый в памяти) множества,
чтобы подсчитать кол-во элементов.
вот что у меня получилось:
Код

function GetSetElementCount( ASetPtr: Pointer; ASize: Integer ): Integer;
var
  lByte: Byte;
  i, j: Integer;
begin
  Result := 0;
  if (ASetPtr = nil) or (ASize = 0) then Exit;
  for i := 0 to pred(ASize) do //по всем байтам, содержащих множество
  begin
    lByte := Byte( Pointer(dword(ASetPtr)+i)^); //берем Nый байт от начала...
    if lByte = 0 then continue; //зачем проверять "пустой" байт.
    for j := 1 to 8 do
    begin
      if Boolean(lByte and $01) then Inc( Result ); //если первый бит = 1 то инкременируем
      lByte := lByte shr 1; //сдвигаем содержимое байта вправо
      if lByte = 0 then Break; //если в байте нет битов =1, то прерываем цикл.
    end;
  end;
end;

//пример использования
procedure TForm1.btn1Click(Sender: TObject);
type
   TEnum = 1..255; //некий тип
   TSet = set of TEnum;//и множество
var
  lSet: TSet;
  lCount: Integer;
begin
  lSet := [1,2,10,11,200]; //что-то задаем
  lCount := GetSetElementCount( @lSet, SizeOf( lSet ) ); //и сколько ж мы задали?
  ShowMessage(Format('lSet elements count: %d',[lCount])); //АГА!!!
end;

конечно же на асме это получилось бы быстрее и оптимальнее, но я в нем не силен)
жду критики  smile 
з.ы. эх не увидел. у меня почти то же, что и ранее Girder выкладывал...

Это сообщение отредактировал(а) MetalFan - 31.5.2007, 11:52


--------------------
There are always someone smarter than you...
PM MAIL   Вверх
Delphist
Дата 31.5.2007, 12:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Delphist Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2145
Регистрация: 3.2.2004
Где: всегда в сети

Репутация: 2
Всего: 3
Это как раз то универсальный меотд если set of назначается от перечислимого типа, то мы всегда знаем перечислимый тип и множественный. поэтому всегда может найти кол-во элементов в множественном типе. Вот этот код я хотел бы увидеть 25.10.2006, т.е. тогда, когда я сформулировал вопрос он бы сильно мне помог.

Добавлено через 3 минуты и 24 секунды
Цитата(MetalFan @  31.5.2007,  12:48 Найти цитируемый пост)
вот накидал универсальный пример, исходя из следующих соображений:

И в чем твой пример превосходит мой, он еще более торможеннее работает. smile 


--------------------
ProcessInfo 1-ая моя программа (аналог spyxx.exe с гораздо большим функц-ом - внедрение dll в адр. простр. процесса, перехват API-функций, разбор приложения на окна мн.др).
Когда-то давным-давно использовал это...
PM MAIL ICQ   Вверх
Alexeis
Дата 31.5.2007, 12:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


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

Репутация: 109
Всего: 459
Delphist, ну и зря, код Гирдера во много раз быстрее.


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

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

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
Delphist
Дата 31.5.2007, 13:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Delphist Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2145
Регистрация: 3.2.2004
Где: всегда в сети

Репутация: 2
Всего: 3
Цитата(Alexeis @  31.5.2007,  13:10 Найти цитируемый пост)
Delphist, ну и зря, код Гирдера во много раз быстрее. 

Не знаю, не знаю но мой код намного нагляднее


--------------------
ProcessInfo 1-ая моя программа (аналог spyxx.exe с гораздо большим функц-ом - внедрение dll в адр. простр. процесса, перехват API-функций, разбор приложения на окна мн.др).
Когда-то давным-давно использовал это...
PM MAIL ICQ   Вверх
MetalFan
Дата 31.5.2007, 15:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Аццкий Сотона
****


Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 62
Всего: 128
Цитата(Delphist @  31.5.2007,  13:58 Найти цитируемый пост)
мой код намного нагляднее

типизированность параметров функции подсчета. основной минус. 
если у меня 3 типа множеств, то придется для каждого писать свою функцию


--------------------
There are always someone smarter than you...
PM MAIL   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0730 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.