|
Registriert seit: 18. Aug 2004
Ort: Edewecht
712 Beiträge
Delphi 5 Professional
|
Re: Zugriff auf Bits eines PByteArray
11. Jul 2005, 13:37
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;
Ciao, Sprint.
"I don't know what I am doing, but I am sure I am having fun!"
|