Delphi + Asm - TBits类的学习

技术交流,DH讲解.

在D2010的classes中有个TBits类,这个类主要是位操作的.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
TBits = class
private
  FSize: Integer;
  FBits: Pointer;
  procedure Error;
  procedure SetSize(Value: Integer);
  procedure SetBit(Index: Integer; Value: Boolean);
  function GetBit(Index: Integer): Boolean;
public
  destructor Destroy; override;
  function OpenBit: Integer;
  property Bits[Index: Integer]: Boolean read GetBit write SetBit; default;
  property Size: Integer read FSize write SetSize;
end;

这个类没有什么方法,我们看到了property Bits[Index: Integer]: Boolean read GetBit write SetBit; default;这个属性,就是读取和设置某一位的.
那我们看看它是怎么实现的?

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
//在类中Eax就是Self指针
procedure TBits.SetBit(Index: Integer; Value: Boolean); assembler;
asm
        CMP     Index,[EAX].FSize  //如果Indx>=Size then 扩容
        JAE     @@Size
 
@@1:    MOV     EAX,[EAX].FBits
        OR      Value,Value
        JZ      @@2
        BTS     [EAX],Index  //将Eax中第Index位赋值给CF,然后Eax第index位=1;
        RET
 
@@2:    BTR     [EAX],Index //将Eax中第Index位赋值给CF,然后Eax第index位=0;
        RET
 
@@Size: CMP     Index,0   //if index <0 then Error
        JL      TBits.Error
        PUSH    Self      //push [eax]
        PUSH    Index
        PUSH    ECX {Value}
        INC     Index
        CALL    TBits.SetSize
        POP     ECX {Value}
        POP     Index
        POP     Self
        JMP     @@1
end;
 
function TBits.GetBit(Index: Integer): Boolean; assembler;
asm
        CMP     Index,[EAX].FSize
        JAE     TBits.Error
        MOV     EAX,[EAX].FBits
        BT      [EAX],Index   //将eax的第Index位赋值给CF
        SBB     EAX,EAX //eax - (eax + CF)
        AND     EAX,1  //清除Eax中的其他位
end;

这里我们发现BTR,BTS,BT,SBB等位操作符.我们之前不是算过99999中有多少个一么?
当时我们用的方法是移位然后与,那么我们现在换个方法呢?

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Function _1Bits(ANum: Integer): Integer;
asm
  xor edx,edx // 位数
  xor ecx,ecx // 1的个数
@@nLoop:
  cmp edx,32  // 循环32次
  je @@nExit
  bt eax,edx
  jnc @@nNoInc // if CF = 0 then
  inc ecx
@@nNoInc:
  inc edx
  jmp @@nLoop
@@nExit:
  mov eax,ecx
end;

全部都是直接对位操作的.
BTR和BTS的作用如上面我注释中写的那样,但是我现在没有其他例子给大家看.TBits类很纯洁,所以可以用到其他版本中去.

我是DH.

posted @   HuangJacky  阅读(1317)  评论(1编辑  收藏  举报
编辑推荐:
· 智能桌面机器人:用.NET IoT库控制舵机并多方法播放表情
· Linux glibc自带哈希表的用例及性能测试
· 深入理解 Mybatis 分库分表执行原理
· 如何打造一个高并发系统?
· .NET Core GC压缩(compact_phase)底层原理浅谈
阅读排行:
· 手把手教你在本地部署DeepSeek R1,搭建web-ui ,建议收藏!
· 新年开篇:在本地部署DeepSeek大模型实现联网增强的AI应用
· Janus Pro:DeepSeek 开源革新,多模态 AI 的未来
· 互联网不景气了那就玩玩嵌入式吧,用纯.NET开发并制作一个智能桌面机器人(三):用.NET IoT库
· 【非技术】说说2024年我都干了些啥
AdminLogin
点击右上角即可分享
微信分享提示