TplBits

type TplBits = class(TplContainer)

protected

  FMax: LongInt;

  btBlockSize: LongInt;

  btBits: pbyte;

  procedure btSetMax();

  procedure btRecount;

  function btByte();

public

  constructor Create(); virtual;

  destructor Destroy; override;

  procedure LoadFromStream(); override;

  procedure StoreToStream(); override;

  procedure Clear; override;

  procedure CopyBits();

  procedure SetBits;

  procedure InvertBits;

  procedure OrBits();

  procedure AndBits();

  procedure SubBits();

  procedure SetBit();

  procedure ClearBit();

  procedure ToggleBit();

  procedure ControlBit();

  function BitIsSet();

  function FirstSet;

  function LastSet;

  function FirstClear;

  function LastClear;

  function NextSet();

  function PrevSet();

  function NextClear();

  function PrevClear();

  function Iterate();

  function IterateFrom();

  property Max: LongInt; [rw]

  property Items []: Boolean; default; [rw]

end;

TplBits

TplContainer

TObject