Shr

From Lazarus wiki
Revision as of 15:57, 24 March 2012 by Vincent (talk | contribs) (Text replace - "delphi>" to "syntaxhighlight>")

Shift right (shr) performs a right bit-shift operation (opposite than shl).


Is a bit set

function isBitSet(AValue, ABitNumber:integer):boolean;
begin
   result:=odd(AValue shr ABitNumber);
end;

Read more