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

Поиск:

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


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


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

Репутация: 2
Всего: 3
Есть переменная:
Код

Type
  TMyBtn = set of (btnYes, btnNo, btnCancel)
Var
   MyBtn: TMyBtn;

MyBtn := [btnYes, btnNo]
Как узнать количество элементов хранящихся в MyBtn.


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


Шустрый
*


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

Репутация: нет
Всего: 1
Код

Count := 0;
for i:=Low(TMyBtn) to High(TMyBtn) do
  if i in MyBtn  then Inc(Count);


Это сообщение отредактировал(а) digs - 25.10.2006, 15:43
PM MAIL   Вверх
Delphist
Дата 25.10.2006, 15:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


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


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

Репутация: 2
Всего: 3
У меня компилятор выдает ошибку на Low(TMyBtn)


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


Vitaly Nevzorov
****


Профиль
Группа: Экс. модератор
Сообщений: 10964
Регистрация: 25.3.2002
Где: Chicago

Репутация: 48
Всего: 207
Странно, но нет стандартных функций... Поглядел в то что делает компиллятор с этими Set, вроде как должно работать что-то типа такого:


Код

  Function GetNum(MySet:TMyBtn):byte;
    var i:integer;
        test:byte;

    function power2(power:byte):byte;
      var i:integer;
    begin
      result:=1;
      for i:=1 to power do result:=result*2;
    end;

  begin
    test:=byte((@MySet)^);
    result:=0;
    for i:=0 to 7 do
      if test and power2(i)<>0 then inc(result);
  end;


Во всяком случае если количество элементов в Set меньше 8, если больше, то надо вместо байта использовать соответствующие типы...

Добавлено @ 16:01 
digs, это для массивов, в set по определению элементы не пронумерованы и нет high и low значений


--------------------
With the best wishes, Vit
I have done so much with so little for so long that I am now qualified to do anything with nothing
Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru
PM MAIL WWW ICQ   Вверх
Yanis
Дата 25.10.2006, 17:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 72
Всего: 111
Код
type
  MySet = set of (msF1, msF2, msF3, msF4, msF5, msF6, msF7, msF8);

var
  b: Byte;
  i: Integer;
  s: MySet;
  c: Integer;
begin
  s := [msF1, msF4, msF8];
  c := 0;
  for i := 0 to (SizeOf(b) * 8) - 1 do
    begin
      if Byte(s) and (1 shl i) > 0 then
        Inc(c);
    end;

  ShowMessage(IntToStr(c));
end;


Множество это обычное число smile


--------------------
user posted image *щёлк*
PM MAIL WWW ICQ   Вверх
digs
Дата 25.10.2006, 23:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: 1
Код

Type    
  TMyBtn = (btnYes, btnNo, btnCancel);
  TMyBtns = set of TMyBtn;
Var    
  MyBtns: TMyBtns;
  i : TMyBtn;
begin
  MyBtns := [btnYes, btnNo];
  ...
  Count := 0;    
  for i:=Low(TMyBtn) to High(TMyBtn) do    
    if i in MyBtns  then Inc(Count);


Вроде так должно работать
PM MAIL   Вверх
Delphist
Дата 26.10.2006, 07:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


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


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

Репутация: 2
Всего: 3
Цитата(digs @  26.10.2006,  00:49 Найти цитируемый пост)
TMyBtn = (btnYes, btnNo, btnCancel);
  TMyBtns = set of TMyBtn;

Я понимаю, что 
TMyBtn = (btnYes, btnNo, btnCancel);
TMyBtns = set of TMyBtn;
это аналог  TMyBtns = (btnYes, btnNo, btnCancel); но мне нужно чтобы было именно так для того, чтобы была возможность передавать напрямую в процедуру конкретные значения
Код

procedure MyProc(My: TMyBtn);
begin
...
end;
...
MyProc([btnYes, btnNo])




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


Эксперт
***


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

Репутация: 49
Всего: 76
Delphist, 
Подругому не получиться наверно, да и нестоит извращаться.
Делай Set of как уже советовали, посмотри туже реализацию MessageDlg (CreateMessageDialog).


--------------------
(* Honesta mors turpi vita potior *)
PM MAIL ICQ   Вверх
digs
Дата 26.10.2006, 18:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: 1
Указывай множество (добавил одну букву)
Код

procedure MyProc(My: TMyBtns);    
begin    
...    
end;    
...    
MyProc([btnYes, btnNo])
PM MAIL   Вверх
Girder
Дата 28.10.2006, 23:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Лентяй 2
***


Профиль
Группа: Участник Клуба
Сообщений: 1993
Регистрация: 12.5.2004

Репутация: 31
Всего: 155
Код

function get_bit1(const m; size:integer):integer;
var i:integer;
function zzz(b : byte):byte;
begin
 b:=(b and 85) + ((b shr 1) and 85);
 b:=(b and 51) + ((b shr 2) and 51);
 b:=(b and 15) + ((b shr 4) and 15);
 Result:=b;
end;
begin
 Result:=0;
 for i:=0 to (size-1) do
  Result:=Result+zzz(pbyte(integer(@m)+i)^);
end;

procedure TForm1.Button1Click(Sender: TObject);
Type
  TSet1 = set of 1..250;
  TSet2 = set of (btnYes, btnNo, btnCancel);
var
   Set1: TSet1;
   Set2: TSet2;
begin
 Set1:=[1,2,100,200];
 Set2:=[btnYes];
 caption:='Set1: '+IntToStr(get_bit1(Set1,SizeOf(TSet1)))+'; Set2: '+IntToStr(get_bit1(Set2,SizeOf(TSet2)));
end;



--------------------
Как слышим, так и пишим.
Истина где-то там...
PM   Вверх
Yanis
Дата 29.10.2006, 03:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 72
Всего: 111
А чем мой способ не подходит?
Или я в суть вопроса не въехал как обычно? smile

Girder
Мой код вроде попроще smile


--------------------
user posted image *щёлк*
PM MAIL WWW ICQ   Вверх
Girder
Дата 29.10.2006, 09:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Лентяй 2
***


Профиль
Группа: Участник Клуба
Сообщений: 1993
Регистрация: 12.5.2004

Репутация: 31
Всего: 155
Цитата(Yanis @  29.10.2006,  04:06 Найти цитируемый пост)
А чем мой способ не подходит?
А разьве кто-то это говорит?

Цитата(Yanis @  29.10.2006,  04:06 Найти цитируемый пост)
Мой код вроде попроще
Они принципиально разные весчи решают. Или если точнее... get_bit1 любое множество проглотит.



--------------------
Как слышим, так и пишим.
Истина где-то там...
PM   Вверх
Yanis
Дата 29.10.2006, 10:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 72
Всего: 111
Цитата(Girder @  29.10.2006,  10:02 Найти цитируемый пост)
А разьве кто-то это говорит?

Бональный интерес.

Цитата(Girder @  29.10.2006,  10:02 Найти цитируемый пост)
Они принципиально разные весчи решают. Или если точнее... get_bit1 любое множество проглотит.

Ок. Хотя мой код можно подкорректировать и он тоже будет крут smile


M
Girder		Не оффтопь!



--------------------
user posted image *щёлк*
PM MAIL WWW ICQ   Вверх
Delphist
Дата 31.5.2007, 10:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


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


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

Репутация: 2
Всего: 3
Цитата(Yanis @  29.10.2006,  11:09 Найти цитируемый пост)
Ок. Хотя мой код можно подкорректировать и он тоже будет крут 

Выкладываю универсальный пример может кому нужен будет:
Код

type 
   TEnum = (Elem1, Elem2,..., ElemN);
   TSets = set of TEnum;

function CountElement(sets: TSets): integer;
var
  i: integer;
  Enum: TEnum;
begin

  Result := 0;
  for i := integer(Low(TEnum)) to integer(High(TEnum)) do
    if TEnum(i) in sets then
      inc(Result);
end;



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


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


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

Репутация: 62
Всего: 128
Delphist, это как раз не универсальный пример... а частный для TEnum и TSets


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


--------------------
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.0653 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


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

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