Schneller Zugriff auf Bits

[negaH]

Delphi-Quellcode:

type
  IBitSet = Interface
    ... bla bla
  end;

  TBitSet = class(TInterfacedObject)
  ... bla bla
  public
    property Bit[Index: Integer]: Boolean read GetBit write SetBit; default; 
  end;

function BitSet(Value): IBitSet;
begin
  Result := TBitSet.Create(Value);
end;

var
  B: IBitSet;
begin
  B := BitSet(12345);

// Anwendung durch indizierte Property und als Default Property und als Interface mit refCounting und 
// autom. Garbage Collection

  if B[2] then B[3] := True;

end;

Es geht also doch

Gruß Hagen