type TBits;
Тип TBits содержит гибкий набор битов (Булевых значений). Размер набора может быть изменен в любое время (используя свойство size). К битам обращаются, используя свойство Bits, подобно этому: flag := myBits.Bits[2]; или, ещё прощё: flag := myBits[2]; Есть одна сервисная функция - OpenBit, которая возвращает индекс первого ложного значения. Подобной функции для поиска истинного значения нет.
|
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;
|