RSS订阅 | 匿名投稿
您的位置:网站首页 > 函数 > 正文

Delphi高效的Byte转化Sring 函数

作者:admin 来源: 日期:2013/10/10 20:12:03 人气: 标签:

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;

读完这篇文章后,您心情如何?
0
0
0
0
0
0
0
0
本文网址: