Bits aus bitstream zaehlen

[Diablo9876]

Erstmal hallo an alle.
Ich habe folgendes Problem ich habe eine Reihe von Chars of bytes (unsigned char's).
Zum Beispiel abcdef, bitweise sieht das so aus 00101101 11000111 01010111 101000011 011001111.
Jetzt moechte ich zaehlen wieviel Bits zwischen position X und Y in diesem Bitstream liegen.
Kann mir da vielleicht jemand helfen?

Gruss Diablo9876

[Sharky]

Zitat von Diablo9876:

...Jetzt moechte ich zaehlen wieviel Bits zwischen position X und Y in diesem Bitstream liegen...

Hmm... die Anzahl der Bits ist doch gleich der Differenz zwichen Y und X.

[Diablo9876]

Hi Sharky erstmal danke fuer deine Reaktion, aber wie krieg ich das hin Differenz zwichen Y und X?
Ein kleiner Ansatzcode waehre nicht schlecht.

Danke.

[Sharky]

Ich glaube ich verstehe dich nicht so richtig

Code:

00101101 11000111 01010111 101000011 011001111
  X                    Y

Ich habe es so verstanden das Du jetzt wissen möchtest wieviele Bits es zwichen X und Y gibt? Und das wäre doch Y-X-1.

[Diablo9876]

Also mein Gedanke war es um ein Zaehler von X bis Y laufen zu lassen der die Bits zaehlt die auf 1 stehen.
Wenn Y-X dan COUNT ist.. oder lieg ich da falsch ?

[idontwantaname]

willst du alle zählen, oder nur die 1er ??

[Diablo9876]

Hi, also nur die auf 1 stehen wil ich 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;

[shmia]

Zitat von Diablo9876:

Ich glaub ich habs.

Dann schau mal in die Code-Library; ich speziell für Dich eine schnellere & elegantere Lösung.

[Diablo9876]

Hi shmia, kannst mir den direkten Link vom Artikel geben finde es nicht so schnell in der Code Library.
Recht vielen Dank.