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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Выбор 
:(
    Опции темы
Михалыч
Дата 27.8.2013, 18:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: нет
В Checklistbox загружаю все диски установленные на ПК, в итоги нужно что бы пользователь выбрал нужные диски для скрытия. не могу сообразить как поумнее создать проверку какие диски выбраны и сложить цыфры. Использовать " if then else " очень накладно. А через " Case " что то не сооброжу, дайте совет как правильно расписать.

 Например, диск A имеет бит 1, диск С - 4, диск D - 8. Таким образом, чтобы скрыть диски A и D, нужно сложить их значения 1 (A) + 8 (D) и установить значение 9.
Список всех дисков:
A: 1, B: 2, C: 4, D: 8, E: 16, F: 32, G: 64, H: 128, I: 256, J: 512, K: 1024, L: 2048, M: 4096, N: 8192, O: 16384, P: 32768, Q: 65536, R: 131072, S: 262144, T: 524288, U: 1048576, V: 2097152, W: 4194304, X: 8388608, Y: 16777216, Z: 33554432, Все диски: 67108863 


--------------------
За частый поиск был забанен во всех известных поисковых системах.
Обиженных  комодераторов: 1 
PM MAIL   Вверх
Vas
Дата 27.8.2013, 18:41 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: 28
Через или видимо
A = 0001
B = 0010
C = 0100
D = 1000
ну и так далее

A OR C = 0101

Добавлено через 51 секунду
Только разрядность поболее
Z = 10000000000000000000000000


--------------------
И опыт, сын ошибок трудных, И гений, парадоксов друг, И случай, бог изобретатель. ... (А.С. Пушкин)
PM MAIL   Вверх
Михалыч
Дата 27.8.2013, 18:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: нет
Цитата(Vas @  27.8.2013,  18:41 Найти цитируемый пост)
A OR C = 0101

Че то мне кажется что это тоже слишком мудрёно. Думаю должен быть вариант проще.



--------------------
За частый поиск был забанен во всех известных поисковых системах.
Обиженных  комодераторов: 1 
PM MAIL   Вверх
Чучмек
Дата 27.8.2013, 19:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


НЭТ БИЛЭТ
**


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

Репутация: 7
Всего: 41
Цитата(Михалыч @  27.8.2013,  18:57 Найти цитируемый пост)
Че то мне кажется что это тоже слишком мудрёно. Думаю должен быть вариант проще.

А что здесь мудреное?

Вывод списка дисков:
Код

var
  d:cardinal;
  i:integer;
begin
  CheckListBox1.Clear;
  d:=GetLogicalDrives();
  for i:=0 to 25 do
    if (d and (1 shl i))<>0 then CheckListBox1.Items.Add(char(ord('A')+i)+':\');  
end;


Получаем отмеченные:
Код

var
  d:cardinal;
  i:integer;
begin
  d:=0;
  for i:=0 to CheckListBox1.Count-1 do
    if CheckListBox1.Checked[i] then  d:= d or (1 shl (ord(CheckListBox1.Items[i][1]) - ord('A')));
  caption:=inttohex(d,8);
end;


Добавлено @ 19:28
p.s. если в первом 'A',то и во втором 'A', а не 'a'.

Это сообщение отредактировал(а) Чучмек - 28.8.2013, 02:09


--------------------
умную мысль держи при себе, а дурной - поделись с другими 
PM MAIL   Вверх
Михалыч
Дата 27.8.2013, 19:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: нет
Ну да не мудрено! 


--------------------
За частый поиск был забанен во всех известных поисковых системах.
Обиженных  комодераторов: 1 
PM MAIL   Вверх
Чучмек
Дата 27.8.2013, 19:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


НЭТ БИЛЭТ
**


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

Репутация: 7
Всего: 41
А как еще?  
Код символа 'A' = $41, все остальные (B,C,D...) по порядку, с шагом в единицу  ($42,$43,$44,...).
Разница между кодом "буквы" выбранного диска и кодом "буквы" нулевого диска "A" является номером бита соответствующего диска (счет с нуля).
А дальше -  битовые операции и ничего больше.


--------------------
умную мысль держи при себе, а дурной - поделись с другими 
PM MAIL   Вверх
northener
Дата 27.8.2013, 20:38 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

Репутация: 12
Всего: 20
А чем банальное множество не устроило?
Код

Disks = set of 'A'..'Z'



--------------------
Но только лошади летают вдохновенно.
Иначе лошади разбились бы мгновенно!
PM MAIL   Вверх
MetalFan
Дата 29.8.2013, 14:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


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


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

Репутация: 22
Всего: 128

M
MetalFan		Модератор: Название темы должно отражать ее суть!
по заголовку темы "Выбор" совершенно непонятно, о чем в ней речь. Просьба задать для темы более внятный заголовок.


Это сообщение отредактировал(а) MetalFan - 29.8.2013, 14:21


--------------------
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.
 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Для новичков | Следующая тема »

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


 




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


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

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