Как прочитать несколько бит как Intger. Допустим есть 2 Byte надо
прочитать первой старшей 5 бит и 11 бит оставши.
И так же как прочитать число если он записано в 3 байтах (24 бит)
вот и делаю так , но думаю есть вариант по лучшее
procedure ReadBits(sValue: Integer);
var
_5Bits: smallInt;
_11Bits: SmallInt;
begin
_11Bits:= (sValue and $7FF);
_5Bits:=(((sValue and $7FFF)/2048) OR 16)
end;
function Read3Byte(f,nPos: Integer): Integer;
var
m: Array[1..3] of byte;
i,j:integer;
begin
fileseek(f,nPos,0);
fileRead(f,m,3);
j:=m[1];
j:=j shl 16;
i:=m[2];
i:=i shl 8;
inc(j,i);
inc(j,m[3]);
result:=j;
end;
