No replies to this topic

[LuthfiHakim]

The following code will see the value of specific bit (specified by AIndex) of an integer value. If the bit is 1, the function returns True, else it returns False.

function IsBitSet(const AValue, AIndex: Integer): Boolean;

begin

  Result := AValue and (1 shl AIndex) <> 0;

end;