十六进制转换成十进制函数
2015-10-22 21:12
246 查看
{*------------------------------------------------ 十六进制转换成十进制函数 @param @return -------------------------------------------------} function HexToInt(str:string; var Value: integer): word; var I, L: Integer; begin L := length(str); for I := 1 to L do begin case str[i] of 'f', 'F': Value := 15; 'e', 'E': Value := 14; 'd', 'D': Value := 13; 'c', 'C': Value := 12; 'b', 'B': Value := 11; 'a', 'A': Value := 10; '0'..'9': Value := Ord(Str[I]) - Ord('0'); end; end; end;
相关文章推荐
- UVALive-3713 Astronauts (2-SAT)
- Activiti引擎启动失败
- 开源网络框架Volley(2)
- Android下自动折行 效果
- iOS开发拓展篇- 即时通讯XMPP简单介绍
- [leetcode 293] Flip Game
- bl 和 ldr跳转程序的区别
- 将数据库中大量数据以JSON格式传给JQGrid MVC4+JQGrid
- 算法与数据结构题目的 PHP 实现:栈和队列 设计一个有 getMin 功能的栈
- lintcode 中等题:k Sum ii k数和 II
- C2第三次作业
- 树莓派连接触摸屏方法(Raspberry Pi 3.5寸 B/B+/2B LCD液晶屏)
- iOS开发拓展篇—应用之间的跳转和数据传
- Linux命令行删除文件恢复
- LeetCode---Unique Paths II
- Binary Tree Postorder Traversal
- 团队项目选题(一)之任务1(改)
- 安卓下的网络编程
- iOS开发网络篇—使用ASI框架进行文件下载
- linux交叉编译器的制作