|
Registriert seit: 16. Mär 2004
2.287 Beiträge
|
Re: Bits
9. Jan 2005, 20:42
aber das is so lang 
das funzt:
Delphi-Quellcode:
function TestBit(Value : byte; bit : byte) : boolean;
begin
result:=(Value AND (1 shl bit )) = (1 shl bit);
end;
»Unlösbare Probleme sind in der Regel schwierig...«
|