今天给大家分享的是由图老师小编精心为您推荐的Delphi中取某整数的某位的位状态的小函数,喜欢的朋友可以分享一下,也算是给小编一份支持,大家都不容易啊!
【 tulaoshi.com - 编程语言 】
type
TPosRange=0..32;
(本文来源于图老师网站,更多请访问https://www.tulaoshi.com/bianchengyuyan/)TStateResult=0..1;
function GetBitSate(Source:Integer;Pos:TPosRange):TStateResult;
begin
(本文来源于图老师网站,更多请访问https://www.tulaoshi.com/bianchengyuyan/)Result:=((Source and (1 shl Pos))shr Pos);
end;
来源:https://www.tulaoshi.com/n/20160219/1601931.html
看过《Delphi中取某整数的某位的位状态的小函数》的人还看了以下文章 更多>>