Delphi Bits - Delphi-PRAXiS

Bits

Ein Thema von Rangarig · begonnen am 9. Jan 2005 · letzter Beitrag vom 10. Jan 2005

Nightshade Registriert seit: 7. Jan 2003 Ort: Menden 192 Beiträge Delphi 7 Enterprise	#2 Re: Bits 9. Jan 2005, 17:24 markieren Delphi-Quellcode: function TestBit(Value : byte; bit : byte) : boolean; begin if (Value AND (1 shl bit )) = (1 shl bit) then result := true else result := false; end; Sollte so gehen... Ansonsten guck dir mal die Befehle "AND", "OR", "NOT" an... Christian Killing for peace is like fucking for virginity Nightshade
	Zitat