Delphi-PRAXiS - Einzelnen Beitrag anzeigen

Moin!

Delphi-Quellcode:

			// n=0 für das linke Bit

Function BitIsSet(Const B, n : Byte): Boolean;

Begin

  Result := ( ( B Shr n ) And 1 ) > 0;

End;

MfG
Muetze1

Muetze1 (Gast) n/a Beiträge	#2 Re: zweitkleinste Informaionseinheit 7. Feb 2005, 08:11 Moin! markieren Delphi-Quellcode: // n=0 für das linke Bit Function BitIsSet(Const B, n : Byte): Boolean; Begin Result := ( ( B Shr n ) And 1 ) > 0; End; MfG Muetze1
	Zitat