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 xe7 判断android应用程序中的通信状态类型

Delphi 替换系统文件实现绕过杀软启动

Delphi radiogroup 组件基本用法

Delphi 截取某个字符之前的字段

Delphi 遍历系统窗口标题可用于反外挂反破解

Delphi提取网页中的图片

Delphi unigui服务器部署

Delphi 顺序查找与二分查找

Delphi 一个中英文记录Delphi实现

Delphi 拖动form上的图片，form一起动

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

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