Delphi高效的Byte转化Sring 函数

本文整理自网络，侵删。

 
function ByteToHex(Src: Byte):String;begin  SetLength(Result, 2);  asm    MOV         EDI, [Result]    MOV         EDI, [EDI]    MOV         AL, Src    MOV         AH, AL          // Save to AH    SHR         AL, 4           // Output High 4 Bits    ADD         AL, "0"    CMP         AL, "9"    JBE         @@OutCharLo    ADD         AL, "A"-"9"-1@@OutCharLo:    AND         AH, $f    ADD         AH, "0"    CMP         AH, "9"    JBE         @@OutChar    ADD         AH, "A"-"9"-1@@OutChar:    STOSW  end;end;
 

相关阅读 >>

Delphi一个简单的多线程例子

Delphi 一个文件重复生成的小工具[附源码]

Delphi 开启内存泄漏报告模式

Delphi listview 排序功能

Delphi 2009 indy10 idhttp get 中文出现乱码的问题

Delphi tchart 的使用

Delphi 正则表达式的匹配模式

Delphi 取键盘值

了解Delphi过程类型/过程类型学习

Delphi pagecontrol不�@示tab方式

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi高效的Byte转化Sring 函数