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中format与formatdatetime函数详解

Delphi xe 减少程序体积！

Delphi中调用http xml

Delphi 2010 复制整个文件夹(当然包括嵌套文件夹)

Delphi xe5 for android ttabcontrol 控件

Delphi弹出信息框大全

Delphi版插apc杀进程驱动源码

Delphi 如何使用通配符删除文件

Delphi自带皮肤的使用

Delphi 如何设置热键

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

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