Bits aus bitstream zaehlen

[Diablo9876]

Ich glaub ich habs.

Delphi-Quellcode:

function CountBits (CONST setvar; size: Integer): Integer;
// Array of Bitsets:
type TBitArray = array [0..31] of TByteBits;

var bits: TBitArray absolute setvar;
    i, c: Integer; 
    b: Bits;
begin
 c:= 0; // start value voor number of bits
 // Anzahl der bytes zaehlen
 for i:= 0 to size - 1 do begin
  // Zaehl fuer jeden Byte die Anzahl Bits
  for b:= Bit0 to Bit7 do begin
   if b in bits[i] then Inc (c);
  end;
 end;
 Result:= c;
end;