Delphi-PRAXiS - Einzelnen Beitrag anzeigen

**marabu**

Wenn du keinen hoch-performanten Code brauchst, dann würde ich den Bit-Test so machen:

Delphi-Quellcode:

			function TestBit(const c: Cardinal; const bit: Byte): Boolean;

begin

  Result := Odd(c shr bit);

end;

Grüße vom marabu

marabu Registriert seit: 6. Apr 2005 10.109 Beiträge	#4 Re: Bit Operations (Bit in HEX) 20. Mär 2006, 11:54 Wenn du keinen hoch-performanten Code brauchst, dann würde ich den Bit-Test so machen: markieren Delphi-Quellcode: function TestBit(const c: Cardinal; const bit: Byte): Boolean; begin Result := Odd(c shr bit); end; Grüße vom marabu
	Zitat