Объект, который может содержать бесконечное число Булевых значений
Classes unit
type TBits;
Описание
Тип TBits содержит гибкий набор битов (Булевых значений).
Размер набора может быть изменен в любое время (используя свойство size).
К битам обращаются, используя свойство Bits, подобно этому:
flag := myBits.Bits[2];
или, ещё прощё:
flag := myBits[2];
Есть одна сервисная функция - OpenBit, которая возвращает индекс первого ложного значения. Подобной функции для поиска истинного значения нет.
Похожие команды
Array Тип данных содержащий индексируемую коллекцию данных
Boolean Позваляет принимать только True и False значения
Пример кода : Простой пример
var flags : TBits; // Наша коллекция переменных Булевых значений
i : Integer;
begin // Создание нашего объекта TBits
flags := TBits.Create; // Добавление несколько элементов в нашу Boolean коллекцию флагов
flags.Size := 5; // И установка нескольких значений
flags[0] := true;
flags[1] := true;
flags[4] := true; // Теперь показываем содержимое коллекции // Обратите внимание, что начинается с 0
for i := 0 to flags.Size-1 do
if flags[i] = true
then ShowMessageFmt('Bit %d - true',[i])
else ShowMessageFmt('Bit %d - false',[i]); // TBits имеет один основной метод - // нахождение индекса первого ложного значения
ShowMessageFmt('Index of the first false value is %d',[flags.OpenBit]);
end;
Bit 0 - true
Bit 1 - true
Bit 2 - false
Bit 3 - false
Bit 4 - true
Индекс первого ложного значения - 2