Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

кол-во элементов в наборе set of.


alienserg ©   (2004-09-02 22:51:00) 

Есть
type TUsedStyles = set of byte;
...
var usedStyles: TUsedStyles;

Возможно вопрос детский, но все же:
Как проще всего определить, сколько элементов содержит usedStyles?
Можно конечно в лоб перебирать все byte и проверять на вхождение в набор. Но может есть какой другой путь...


GuAV   (2004-09-02 23:08:00) [1]


>  Но может есть какой другой путь...

Другой путь возможно и быстрее но не проще.

const
 BitsCount = array[Byte] of 0..8 = ( { TODO: заполнить } );

type
 TSetArray = array[0..High(Byte) div 8];

и сложить BitsCount в цикле.


Anatoly Podgoretsky   (2004-09-02 22:59:00) [2]

Цикл от Low до High


Наверх

Титульная страница Поиск, карта сайта Написать письмо