Delphi - 简单10进制转2进制的函数

技术交流,DH讲解.

昨晚半夜1点多,有个朋友来问这个问题.想了下,先打算偷懒,让他先用IntToHex转16进制,然后1位16进制对应4位二进制.
后来想了下这样做,太不该了.于是自己随手写了个函数:
我们只要对位运算熟悉就可以了,我们一位一位的去判断是0还是1就可以了.
为了避免String引起的效率问题,我们直接用Array[0..31] of Char.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Type
  TBinString = Array[ 0..31 ] Of Char ;
 
Function IntToBin( N: Integer ): TBinString ;
Const
  BinCharArr: Array[ 0..1 ] Of Char = ( '0', '1' ) ;
Var
  I: Integer ;
Begin
  For I := 0 To 32 - 1 Do
  Begin
    Result[ 31 - I ] := BinCharArr[ N And 1 ] ;
    N := N Shr 1 ;
  End ;
End ;

 汇编版本

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
type
  TBinString = array[0..31] of AnsiChar;
function Int2Bin(n:Integer):TBinString ;
asm
  push edx //将result保存一下
  mov ecx,$1F
@@nLoop:
  cmp ecx , 0
  jl @@nExit
  bt eax,ecx
  jc @@n1
  mov byte ptr [edx],'0'
  jmp @@nNext
@@n1:
  mov Byte ptr [edx],'1'
@@nNext:
  inc edx
  dec ecx
  jmp @@nLoop
@@nExit:
  pop edx
  mov eax,edx
end;

代码很短.就这么个意思吧.

我是DH.

posted @   HuangJacky  阅读(2585)  评论(0编辑  收藏  举报
编辑推荐:
· 智能桌面机器人:用.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
点击右上角即可分享
微信分享提示