Difference between revisions of "Shr"
From Lazarus wiki
Jump to navigationJump to searchm (Text replace - "delphi>" to "syntaxhighlight>") |
|||
Line 5: | Line 5: | ||
== Is a bit set == | == Is a bit set == | ||
− | < | + | <syntaxhighlight> |
function isBitSet(AValue, ABitNumber:integer):boolean; | function isBitSet(AValue, ABitNumber:integer):boolean; | ||
begin | begin | ||
result:=odd(AValue shr ABitNumber); | result:=odd(AValue shr ABitNumber); | ||
end; | end; | ||
− | </ | + | </syntaxhighlight> |
=== Read more === | === Read more === |