TRUE в одном из элементов → FALSE во всех остальных.

[Stilet]

А если режимов будет больше, чем бит в INTEGER?

Array of integer;

В добавок предожу функу, которой я вычленяю битовые записи:

// Это массив битовых масок для стандартного integer
bit:ARRAY[0..31] of DWORD
  = ($1,$2,$4,$8,$10,$20,$40,$80,$100,$200,$400,$800,$1000,$2000,$4000,$8000,
     $10000,$20000,$40000,$80000,$100000,
     $200000,$400000,$800000,$1000000,
     $2000000,$4000000,$8000000,$10000000,$20000000,$40000000,$80000000);

...
{ Функция принимает следующие параметры:
 Source - целое, в котором будет битами оперировать
 FromBit - номер бита с которым будет оперировать
 CountBit - если мне хочется из числа вычленить битовую запись, 
например с 3-го бита по 5-й (некоторые контроллеры оч. любят 
упаковывать маленькие числа в одно большое) я указываю сколько битов брать от FromBit - таким образом получу число
}
function BitsToNum(Source:variant;FromBit:Word=0;CountBit:word=1):variant;//overload
begin
 // Собсн тут сдвиг вправо до заказанного кол-ва битов, и отсеивание по маске хвоста слева чтоб не мешал
 result:=(bit[CountBit]-1) and (source shr frombit);
end;

if BitsToNum(Число,1,1)=1 then бит 1 в числе установлен

Подчисло=BitsToNum(Число,2,4) -биты со 2-го по 4-тый интерпретируются как число

[Alex Cones]

Эээээээ.... Как то у меня голова закружилась... Можно каждую букву прокомментить. Такой сильной магии я еще не встречал.

[Utkin]

SetLength(A, 5);

Ну в твоем примере достаточно и байта. Integer не хватит, если у тебя будет более 32-х флажков. Думаю для среднего проекта вполне хватит.

Как то у меня голова закружилась...

Гироскопы сбиты, можно автонастроить если выровнять давление, ну это слей пол тазика крови, полегчает.

[Stilet]

Можно каждую букву прокомментить.

Постарался как смог - см. выше.

[Alex Cones]

Благодарю за предоставленную помощь.
Обязательно воспользуюсь советом.
5000

[Stilet]

5,000

С юбилеем, дружище

[Utkin]

Сообщение от Alex Cones

Обязательно воспользуюсь советом.

Про головокружение ?

[Alex Cones]

Про головокружение ?

Именно.
Кстати, Stilet, а откуда у тебя столько? Помнится ты сидел в списке ниже Админа. А потом за несколько дней вырвался на поул позишн.

[Stilet]

А потом за несколько дней вырвался на поул позишн.

А ты спи больше Во сне люди ростут.

[Пепел Феникса]

стоп, а у тебя может быть включенно несколько режимов одновременно?
если нет, то зачем с битами парится? сделай перечислимый тип.