{***************************函数头部说明******************************
// 单元名称 : Unit1
// 函数名称 :HexByte
// 函数实现目标： 10变16进制
// 参    数 :b: Byte
// 返回值   :string
// 作    者 :  ＳＩＮＭＡＸ           　　　　　  　　　　　
// 　　　　 "._`-.　　　　 (\-.　          http://sinmax.yeah.net/
// 　　　　　　'-.`;.--.___/ _`>　      　 Email:SinMax@163.net
// 　　　　　　　 `"( )　　, ) 　      　　　　
// 　　　　　　　　　\\----\-\　       　　　==== 郎  正 ====  　
// 　　　 ~~ ~~~~~~ "" ~~ """ ~~~~~~~~~　　
// 创建日期 :  2002-07-26
// 工作路径 :  C:\Documents and Settings\Administrator\桌面\File2Str\
// 修改记录 :
// 备   注 :
********************************************************************}
function HexByte(b: Byte): string;
const HexDigs: array [0..15] of char = '0123456789ABCDEF';
var bz: Byte;
begin
bz:= b and $F;
b:= b shr 4;
HexByte:= HexDigs[b] + HexDigs[bz];
end;