Zugriff auf Bits eines PByteArray

[Floesmaan]

Moin (:

hab ein kleines pointer problem in delphi. vom prinzip möchte ich so etwas ähliches machen wie in diesem beitrag.

allerdings habe ich in meinem programm zurzeit ein "p:PByteArray", welches durch "GetMem(p, size);" auf einen speicherbereich zeigt.

ich habs bisher nicht hinbekommen, auf die einzelnen bits an einer ganz bestimmten stelle des oben reservierten speichers zuzugreifen. gibts da irgend eine einfache variante?

also eine art funktion, die in etwa so aussieht:
LeseBit(index,index2):boolean

dabei steht "index" für die stelle eines bytes im speicher und "index2" gibt das auszulesende bit an.

gibt es solch einen direkten zugriff auf die bits?

und gibts vom prinzip so etwas hier:
Leseword(index,index2):word
Leseint(index,index2):integer


Gruß Thomas

[sniper_w]

Vielleicht:

Delphi-Quellcode:

MyByte := p^[index];
MyBit := Mybyte and (Power(2,Index2));

[Sprint]

Delphi-Quellcode:

type
  TBitSet = set of 0..7;
  TBits = 0..7;

Delphi-Quellcode:

function LeseBit(P: PByteArray; Index: Integer; Bit: TBits): Boolean;
begin
  Result := Bit in TBitSet(P[Index]);
end;

[Floesmaan]

ahja, genau danach hatte ich gesucht. vielen dank euch beiden!