Delphi中取某整数的某位的位状态的小函数

type

   TPosRange=0..32;

      TStateResult=0..1;

function GetBitSate(Source:Integer;Pos:TPosRange):TStateResult;

begin

   Result:=((Source and (1 shl Pos))shr Pos);

end;

阅读更多
文章标签: delphi function
想对作者说点什么? 我来说一句

没有更多推荐了,返回首页

关闭
关闭