什么意思,是不是将十进制数转化为16进制字符串,如过不是这个意思我同意 jobine(灼冰) 的说法。 下面给出转化为字符串的代码。 function HEXToHEXString(HEX:Byte):String; Var Tmp:Byte; Begin Result:=''; Tmp:=Hex; Tmp:=Tmp shr 4; if Tmp<10 Then Begin Tmp:=Tmp+$30; Result:=Result+Chr(Tmp); End Else Begin Tmp:=Tmp+$37; Result:=Result+Chr(Tmp); End; Tmp:=Hex; Tmp:=Tmp And $0F; if Tmp<10 Then Begin Tmp:=Tmp+$30; Result:=Result+Chr(Tmp); End Else Begin Tmp:=Tmp+$37; Result:=Result+Chr(Tmp); End; End;
下面给出转化为字符串的代码。
function HEXToHEXString(HEX:Byte):String;
Var
Tmp:Byte;
Begin
Result:='';
Tmp:=Hex;
Tmp:=Tmp shr 4;
if Tmp<10 Then
Begin
Tmp:=Tmp+$30;
Result:=Result+Chr(Tmp);
End
Else
Begin
Tmp:=Tmp+$37;
Result:=Result+Chr(Tmp);
End;
Tmp:=Hex;
Tmp:=Tmp And $0F;
if Tmp<10 Then
Begin
Tmp:=Tmp+$30;
Result:=Result+Chr(Tmp);
End
Else
Begin
Tmp:=Tmp+$37;
Result:=Result+Chr(Tmp);
End;
End;