如何模拟Delphi records中的位域

Posted 2021-05-14 marklove

展开查看·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 文件名}
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; ```` ~1 ```` 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;