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.
【推荐】编程新体验,更懂你的AI,立即体验豆包MarsCode编程助手
【推荐】凌霞软件回馈社区,博客园 & 1Panel & Halo 联合会员上线
【推荐】抖音旗下AI助手豆包,你的智能百科全书,全免费不限次数
【推荐】轻量又高性能的 SSH 工具 IShell:AI 加持,快人一步
· 智能桌面机器人:用.NET IoT库控制舵机并多方法播放表情
· Linux glibc自带哈希表的用例及性能测试
· 深入理解 Mybatis 分库分表执行原理
· 如何打造一个高并发系统?
· .NET Core GC压缩(compact_phase)底层原理浅谈
· 手把手教你在本地部署DeepSeek R1,搭建web-ui ,建议收藏!
· 新年开篇:在本地部署DeepSeek大模型实现联网增强的AI应用
· Janus Pro:DeepSeek 开源革新,多模态 AI 的未来
· 互联网不景气了那就玩玩嵌入式吧,用纯.NET开发并制作一个智能桌面机器人(三):用.NET IoT库
· 【非技术】说说2024年我都干了些啥