Delphi中取某整数的某位的位状态的小函数

2016-02-19 12:47 1 1 收藏

今天给大家分享的是由图老师小编精心为您推荐的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

延伸阅读
procedure TForm1.FTPAnalysis(S:string;var UserName,Password,IP,FileName:String;var DirList:TStringList); var   i,j:integer;   strAuthorization,strAddr,strDirFile:string; //授权信息 begin   UserName:= 'anonymous';   Password:= 'test@test.com';...
翻译的不好,请见谅。 翻译:鲁小班 文件: ActnList CreateAction 函数 创建一个指定类型的Action,显示在action list editor中。 EnumRegisteredAction 过程 枚举已经注册的Action RegisterAction 过程 注册Action UnRegisterAction 过程 反注册Action 文件: Classes Bounds 函数 输入上...
  用DELPHI的宏可以做一些非常简便的工作, 它是记录键盘的动作,如果我们将一些有规律的动作,用宏来进行操作,就可以达到事半功倍的效果,前提是编写的代码风格比较整洁. 宏是以Ctrl + Shift + R开始, 也以Ctrl + Shift + R结束, 以Ctrl + Shift + P来播放. 开始录制宏后,可以在状态栏看到 'Recording'字样. 以...
从Delphi 5开始VCL中增加了一个新的Contnrs单元,单元中定义了8个新的类,全部都是基于标准的TList 类。 TList 类 TList 类实际上就是一个可以存储指针的容器类,提供了一系列的方法和属性来添加,删除,重排,定位,存取和排序容器中的类,它是基于数组的机制来实现的容器,比较类似于C++中的Vector和Java中的ArrayList,TLi...
Delphi中的线程类--之(1) Delphi 中的线程类 --之(1)    Raptor(原作)       关键字      Thread Event CriticalSection Synchronize     Delphi中的线程类 猛禽 [Menta...

经验教程

795

收藏

55
微博分享 QQ分享 QQ空间 手机页面 收藏网站 回到头部