Mega Code Archive

 

Categories / Delphi / Types

 

Tbits - an object that can hold an infinite number of boolean values

type TBits; Description The TBits type holds a flexible collection of bits (Boolean values). The colection size can be altered at any time (using the size property). Bits are accessed using the Bits property, like this : flag := myBits.Bits[2]; or, more simply: flag := myBits[2]; There is one utility function - OpenBit - which returns the index of the first false value. There is no equivalent for true values. Related commands Array A data type holding indexable collections of data Boolean Allows just True and False values Example code : A simple example var flags : TBits; // Our variable collection of Boolean values i : Integer; begin // Create our TBits object flags := TBits.Create; // Add a few items to our Boolean flags collection flags.Size := 5; // And set a few values flags[0] := true; flags[1] := true; flags[4] := true; // Now display the contents of the collection // Note that indexing starts at 0 for i := 0 to flags.Size-1 do if flags[i] = true then ShowMessageFmt('Bit %d is true',[i]) else ShowMessageFmt('Bit %d is false',[i]); // TBits has one main method - // to find the index of the first false value ShowMessageFmt('Index of the first false value is %d',[flags.OpenBit]); end; Show full unit code Bit 0 is true Bit 1 is true Bit 2 is false Bit 3 is false Bit 4 is true Index of the first false value is 2