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;
    {* 取二进制位}
  • 相关阅读:
    php遍历目录下的所有文件夹
    PHP 遍历文件
    PHP中public protected private的区别
    mysql数据库优化的方法
    Thinkphp 验证器
    PHP 接口
    php获取表单的值
    PHP 数组
    php 递归
    [go系列] 函数
  • 原文地址:https://www.cnblogs.com/flay/p/2460103.html
Copyright © 2011-2022 走看看