function TGamePacket.ReadBitFlags(Count: Integer = 0): TGamePacketBitFlags;
var
  N, I: Integer;
  B: array of Byte;
begin
  N := ReadH;
  if (N < 1) or ((Count > 0) and (N <> Count)) then raise Exception.Create('Invalid bit flags count!');
  I := Ceil(N / 8);
  SetLength(B, I);
  Move(FData[FCursor], B[0], I);
  Inc(FCursor, I);
  SetLength(Result, N);
  for I := 0 to N - 1 do
    begin
      Result[I] := (B[I div 8] shr (7 - (I mod 8))) and 1 = 1;
    end;
end;
Code: Pascal

 
Result[I] := (B[I div 8] shr (7 - (I mod 8)))[COLOR="Red"] and 1 = 1[/COLOR];
 
Code: Pascal

 
int N = readH(); // 23
 
if(N < 1)
    new Exception("Incorrect flags count.");
 
int I = (int)  Math.ceil((double) N / 8); // 23 / 8 = 3
 
byte B[] = new byte[I];
 
readB(B);
 
int result[] = new int[N];
for(int i = 0; i < N; i++)
{
        result[i] = B[i / 8] >> (7 - (i % 8)); // result[0] = -1 >> 7 
}
 
Code: Java