Разное
Облака / Clouds
The bast cloud service
Get 20 GB free!!!
Support WebDav.
Show more >>
time-tested cloud storage
Support WebDav.
Последние книги
Самое популярное
Все бесплатно
Все ссылки на файлы, расположенные на страницах сайта, добавлены пользователями и доступны для бесплатного скачивания. За содержание этих файлов администрация сайта ответственности не несет.
Навигация
Вопросы
Delphi - Справочник: TBits
TBits
|
type TBits; |
Тип (Unit Classes)
|
Объект, который может содержать бесконечное число Булевых значений
|
Описание:
|
Тип 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;
Результат:
|
Bit 0 - true Bit 1 - true Bit 2 - false Bit 3 - false Bit 4 - true Индекс первого ложного значения - 2 |