zoukankan      html  css  js  c++  java
  • Delphi 学习之函数 ③ 扩展的位操作函数

    //▎============================================================▎//
    //▎===================③ 扩展的位操作函数  ====================▎//
    //▎============================================================▎//
    
    type
      TByteBit = 0..7;
      {* Byte类型位数范围}
      TWordBit = 0..15;
      {* Word类型位数范围}
      TDWordBit = 0..31;
      {* DWord类型位数范围}
    
    procedure SetBit(var Value: Byte; Bit: TByteBit; IsSet: Boolean); overload;
    {* 设置二进制位}
    procedure SetBit(var Value: WORD; Bit: TWordBit; IsSet: Boolean); overload;
    {* 设置二进制位}
    procedure SetBit(var Value: DWORD; Bit: TDWordBit; IsSet: Boolean); overload;
    {* 设置二进制位}
    
    function GetBit(Value: Byte; Bit: TByteBit): Boolean; overload;
    {* 取二进制位}
    function GetBit(Value: WORD; Bit: TWordBit): Boolean; overload;
    {* 取二进制位}
    function GetBit(Value: DWORD; Bit: TDWordBit): Boolean; overload;
    {* 取二进制位}
  • 相关阅读:
    tomcat安装
    hadoop相关
    kafka Windows安装
    linux安装mysql
    linux安装redis
    linux安装jdk
    netcore kafka操作
    windows文件上传到linux服务器上
    SqlServer索引的原理与应用(转载)
    mssql表分区
  • 原文地址:https://www.cnblogs.com/flay/p/2460103.html
Copyright © 2011-2022 走看看