- 博客(1)
- 收藏
- 关注
原创 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;
2004-08-02 09:59:00 700
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人