Справочник функций и процедур Delphi: TBits

  Навигация по первой букве:

A  B  C  D  E  F  G  H  I  J  K  L  M  N  O  P  Q  R  S  T  U  V  W  X  Y  Z

  Навигация по категории:

Compiler directives, Directives, Keywords / Types, Variables, Constants / Functions, Procedures

TBits
Тип
Объект, который может содержать бесконечное число Булевых значений 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
 


Последние добавленные на сайт исходники

TDictionary Custom Sort

Fast Watermark Sources

3D Designer

Sik Screen Capture

Patch Maker

Айболит (remote control)

 

ListBox Drag & Drop

Доска для игры Реверси

Графические эффекты

Рисование по маске

Перетаскивание изображений

Canvas Drawing

 

Copyright © 2004-2022 "Delphi Sources" by BrokenByte Software (источник – "DelphiBasics")

Группа ВКонтакте   Facebook   Ссылка на Twitter   Ссылка на Telegram