Delphi тип TBits – об'єкт, який може містити нескінченну кількість Булевих значень

Delphi тип TBits – об'єкт, який може містити нескінченну кількість Булевих значень.

Тип TBits в Delphi: Приклад коду

var
  flags : TBits;         // Наша колекція змінних Булевих значень
  i : Integer;
begin
  // Створення нашого об'єкту TBits
  flags := TBits.Create;

  // Додайте кілька елементів до нашої колекції логічних прапорів
  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('Індекс першого помилкового значення – %d',[flags.OpenBit]);
end;