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.
http://www.cnblogs.com/huangjacky/archive/2010/01/19/1651359.html