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;