TBits

type TBits = class(TObject)

public

  constructor Create(); virtual;

Creates a new bits collection.

  destructor Destroy; override;

Destroys a bit collection

  function GetFSize;

Returns the number of records used to store the bits.

  procedure SetOn();

Turn a particular bit on.

  procedure Clear();

Clears a particular bit.

  procedure Clearall;

Clears all bits in the array.

  procedure AndBits();

Performs an and operation on the bits.

  procedure OrBits();

Performs an or operation on the bits.

  procedure XorBits();

Performs a xor operation on the bits.

  procedure NotBits();

Performs a not operation on the bits.

  function Get();

Retrieve the value of a particular bit

  procedure Grow();

Expands the bits array to the requested size.

  function Equals();

Determines whether the bits of 2 arrays are equal.

  procedure SetIndex();

Sets the start position for FindNextBit and FindPrevBit

  function FindFirstBit();

Find first bit with a particular value

  function FindNextBit;

Searches the next bit with a particular value.

  function FindPrevBit;

Searches the previous bit with a particular value.

  function OpenBit;

Returns the position of the first bit that is set to False.

  property Bits: Boolean; default; [rw]

Access to all bits in the array.

  property Size: LongInt; [rw]

Current size of the array of bits.

end;

TBits

Class to store collections of bits (binary values that can be 0 or 1)

TObject