如何模拟Delphirecords中的位域

原作者: [db:作者] 来自: [db:来源] 收藏邀请

展开查看·Delphi <-> C++ 基本语法对照表


http://blog.qdac.cc/?p=925
一、标志符命名：两个基本一样，除了保留的关键字，C/C++区分大小写外，剩下的基本一样。一般来说你可以用Delphi的习惯，但注意大小写就好。
二、运算符：
数学运算符：+、-、*是一样的，除在C++里就是一个/，不分div和/，两个整数直接就是相当于div，任意一个是浮点数就是浮点数。
比较操作符：这个C/C++的不等于是!=，而Delphi是<>
位运算符（C++ => Delphi，下同）：位与（& => and）、位或（| => or）、位非（~ => not）、异或（^ => xor），左移（变量<<位数 =>变量 shl 位数）、右移（变量>>位数 => 变量 shr 位数）
逻辑运算符：与（&& => and）、或（|| => or）、非（! => not）
地址运算符：& => @
成员运算符：Delphi均为“.”，C++中指针实例的成员用 -> ，非指针实例的成员用“.”。
指针内容操作符：*指针 => 指针^
自运算符：变量++ =>Inc(变量)，++整型变量 => 无，变量– => Dec(变量)，变量+=值 => 变量:=变量+值，变量*=值 =>变量:=变量*值，依次类推，Delphi剩下的都没有
【注】在C++中，&同时被当作引用符号，如:int &a=b ，此时访问a的内容和访问b的内容是等价的。
三、语句
语句都是以“;”结束，复合语句在C++中是用大括号包含在一起，Delphi是begin/end，对应关系：
{ => begin
} => end
四、变量声明
C++中变量声明的位置不必一定在开始，但C的话规矩就和Delphi一样了。格式：
类型 变量名; => var 变量名:类型
常量的C++和Delphi一样都是用const修饰，同样，C++的变量和常量定义你可以随便在什么地方。
五、流程控制
条件判断：if(条件)/else if(条件)/else =>if  条件 then/else if 条件 then/else
分支选择：switch(变量){ case 值:语句;default:默认处理语句;}=>case 变量 of 值:语句 else 默认语句 end
while循环：while(条件)语句; => while 条件 do 语句;
repeat循环：do 语句 while(条件); => repeat 语句 until 条件;注意两个条件是相反的，一个是成立时继续，一个是直到不成立
for循环：for(初始化语句;结束条件;额外控制) 语句 => for 循环变量:=初始值 to/downto 目标值 do 语句
六、函数
C++不区分过程和函数，过程对于C++而言只是返回值为void的函数，Delphi中函数是要求有返回值，过程没有返回值，对应格式如下：
函数：
返回值类型 [修饰符] 函数名(函数参数){函数代码} => function 函数名(函数参数):返回值类型;[修饰符];begin 函数代码 end;
过程：
void  [修饰符] 函数名(函数参数){函数代码} => procedure函数名(函数参数):返回值类型;[修饰符];begin 函数代码 end;
【注】
如果函数参数传地址，Delphi的var类型定义，一般翻译成引用，当然也可以翻译成指针。如：
procedure Inc1(var x:Integer);
begin
Inc(x);
end;
procedure Inc1(var x:Integer);

begin

Inc(x);

end;

翻译成C++可以是：
void __fastcall Inc1(int &x)

{

x++;

}

或

void __fastcall Inc11(int x)

{

(x)++;

}
void __fastcall Inc1(int &x)

{

x++;

}

或

void __fastcall Inc11(int x)

{

(x)++;

}

加上__fastcall修饰符是因为Delphi的调用规则默认是fastcall，保持一致。

七、基本类型

C++没有集合类型，所以delphi中的set没有直接对应类型，但C++ Builder对应了一个Set模板类，咱们不说。只说基本类型之间的映射关系：

char => AnsiChar

wchar_t => WideChar

unsigned char => Byte

short => Smallint

unsigned short => Word

int => integer

unsigned int =>Cardinal

long => Longint

unsigned long =>Cardinal

__int64 => Int64

unsigned __int64 =>UInt64

enum 枚举类型名 {枚举值列表 } => type 枚举类型名=(枚举值列表）

struct 结构体类型名{成员定义}=> 结构体类型名=[packed] record 成员定义 end;

class 类型名[: public/protected/private 父类名]=> 类型名=class[(父类名)]

union 联合（共用体）类型名{成员定义} => 类型名=record case 类型 of  值:(成员定义); end;

位域在Delphi中没有对应的定义，只能定义为相应的类型，然后自己去检测标志位。

【注】C++中，结构、类和接口实际上没有什么本质的区别，C++的结构体一样可以有构造和析构函数，一样可以继承和重载函数，如果非要说有区别，那么最大的区别就是C++里结构体默认成员是公开的(public)，而类默认是私有的(private)，但你可以用完全同样的语法去规定各个成员的可见性。至于接口，C++中本身就是record的别名。

八、引用外部文件

include “文件名” => uses 单元名 或 {$I 文件名}
九、强制类型转换

(类型)值 => 类型(值)

dynamic_cast<类型>(变量) => 值 as 类型

Delphi的is可以用检查dynamic_cast的值是否为空来代替，另外，C++还有一堆static_cast/reinterpret_cast/const_cast等转换方式，但常用的是上面的方法。

begin
var i:byte;
i:=$F0;
//11110000
showmessage(i.ToString);//240
 i:=i shr 4;
//00001111
showmessage(i.ToString);//15
end;

https://stackoverflow.com/questions/282019/how-to-simulate-bit-fields-in-delphi-records
http://rvelthuis.de/articles/articles-convert.html#bitfields

    struct
    {
        DWORD   BaseMid : 8;
        DWORD   Type : 5;
        DWORD   Dpl : 2;
        DWORD   Pres : 1;
        DWORD   LimitHi : 4;
        DWORD   Sys : 1;
        DWORD   Reserved_0 : 1;
        DWORD   Default_Big : 1;
        DWORD   Granularity : 1;
        DWORD   BaseHi : 8;
    }
    Bits;

RBits = record
public
  BaseMid: BYTE;
private
  Flags: WORD;
  function GetBits(const aIndex: Integer): Integer;
  procedure SetBits(const aIndex: Integer; const aValue: Integer);
public
  BaseHi: BYTE;
  property _Type: Integer index $0005 read GetBits write SetBits; // 5 bits at offset 0
  property Dpl: Integer index $0502 read GetBits write SetBits; // 2 bits at offset 5
  property Pres: Integer index $0701 read GetBits write SetBits; // 1 bit at offset 7
  property LimitHi: Integer index $0804 read GetBits write SetBits; // 4 bits at offset 8
  property Sys: Integer index $0C01 read GetBits write SetBits; // 1 bit at offset 12
  property Reserved_0: Integer index $0D01 read GetBits write SetBits; // 1 bit at offset 13
  property Default_Big: Integer index $0E01 read GetBits write SetBits; // 1 bit at offset 14
  property Granularity: Integer index $0F01 read GetBits write SetBits; // 1 bit at offset 15
end;
The index is encoded as follows : . Where 1<=NrBits<=32 and 0<=BitOffset<=31(BitOffset shl 8) + NrBits

Now, I can get and set these bits as follows :
{$OPTIMIZATION ON}
{$OVERFLOWCHECKS OFF}
function RBits.GetBits(const aIndex: Integer): Integer;
var
  Offset: Integer;
  NrBits: Integer;
  Mask: Integer;
begin
  NrBits := aIndex and $FF;
  Offset := aIndex shr 8;

  Mask := ((1 shl NrBits) - 1);

  Result := (Flags shr Offset) and Mask;
end;

procedure RBits.SetBits(const aIndex: Integer; const aValue: Integer);
var
  Offset: Integer;
  NrBits: Integer;
  Mask: Integer;
begin
  NrBits := aIndex and $FF;
  Offset := aIndex shr 8;

  Mask := ((1 shl NrBits) - 1);
  Assert(aValue <= Mask);

  Flags := (Flags and (not (Mask shl Offset))) or (aValue shl Offset);
end;

type
  TBits = record
  private
    FBaseMid     : Byte;//ff  8
    FTypeDplPres :  Byte;//ff 5+2+1 =8
    FLimitHiSysEa: Byte;//ff 4+1+1+1+1 =8
    FBaseHi      : Byte;//ff 8
                                                           //byte  int or int64 .。。。。之类的避开地址位置不好对等情况
    //总的来说RBits 是一块内存  自己位移 可以解决 8+5+6+8+5... 第一个8 FF够用第二个 5 需要位移 取反 第三个6 需要位移取反 。。  
    function GetType: Byte;
    procedure SetType(const AType: Byte);
    function GetDpl: Byte;
    procedure SetDbl(const ADpl: Byte);
    function GetBit1(const AIndex: Integer): Boolean;
    procedure SetBit1(const AIndex: Integer; const AValue: Boolean);
    function GetLimitHi: Byte;
    procedure SetLimitHi(const AValue: Byte);
    function GetBit2(const AIndex: Integer): Boolean;
    procedure SetBit2(const AIndex: Integer; const AValue: Boolean);

  public
    property BaseMid: Byte read FBaseMid write FBaseMid;
    property &Type: Byte read GetType write SetType; // 0..31
    property Dpl: Byte read GetDpl write SetDbl; // 0..3
    property Pres: Boolean index 128 read GetBit1 write SetBit1; 
    property LimitHi: Byte read GetLimitHi write SetLimitHi; // 0..15

    property Sys: Boolean index 16 read GetBit2 write SetBit2; 
    property Reserved0: Boolean index 32 read GetBit2 write SetBit2; 
    property DefaultBig: Boolean index 64 read GetBit2 write SetBit2; 
    property Granularity: Boolean index 128 read GetBit2 write SetBit2; 
    property BaseHi: Byte read FBaseHi write FBaseHi;
  end;

  function TBits.GetType: Byte;
  begin
    Result := (FTypeDplPres shr 3) and $1F;
  end;

  procedure TBits.SetType(const AType: Byte);
  begin
    FTypeDplPres := (FTypeDplPres and $07) + ((AType and $1F) shr 3);
  end;

  function TBits.GetDpl: Byte;
  begin
    Result := (FTypeDplPres and $06) shr 1;
  end;

  procedure TBits.SetDbl(const ADpl: Byte);
  begin
    FTypeDblPres := (FTypeDblPres and $F9) + ((ADpl and $3) shl 1);
  end;

  function TBits.GetBit1(const AIndex: Integer): Boolean;
  begin
    Result := FTypeDplPres and AIndex = AIndex;
  end;

  procedure TBits.SetBit1(const AIndex: Integer; const AValue: Boolean);
  begin
    if AValue then
      FTypeDblPres := FTypeDblPres or AIndex
    else
      FTypeDblPres := FTypeDblPres and not AIndex;
  end;

  function TBits.GetLimitHi: Byte;
  begin
    Result := (FLimitHiSysEa shr 4) and $0F;
  end;

  procedure TBits.SetLimitHi(const AValue: Byte);
  begin
    FLimitHiSysEa := (FLimitHiSysEa and $0F) + ((AValue and $0F) shr 4);
  end;

  function TBits.GetBit2(const AIndex: Integer): Boolean;
  begin
    Result := FLimitHiSysEa and AIndex = AIndex;
  end;

  procedure TBits.SetBit2(const AIndex: Integer; const AValue: Boolean);
  begin
    if AValue then
      FLimitHiSysEa := FLimitHiSysEa or AIndex
    else
      FLimitHiSysEa := FLimitHiSysEa and not AIndex;
  end;