A small function that takes the bit state of a certain integer in Delphi

Author：Eve Cole Update Time：2025-02-12 08:24:02

type

TPosRange=0..32;

TStateResult=0..1;

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

begin

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

end;