byte 和 hex 互转

最新推荐文章于 2024-07-30 17:42:39 发布

原创最新推荐文章于 2024-07-30 17:42:39 发布 · 901 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#F# #.net #C #C++ #C#

delphi 专栏收录该内容

1 篇文章

订阅专栏

本文提供了一种将字符串转换为16进制格式的方法。通过两个主要函数实现：一个是将单个字节转换为两位16进制字符，另一个是处理整个字符串，将其每个字符都转换成对应的16进制形式。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

http://topic.youkuaiyun.com/u/20100819/10/62a54e6a-2205-4c5c-8551-007321aebb7a.html?668593488

function ByteToHex(Src: Byte): String;
var
h, l : Byte;
const
HC : Array [$00..$0F] of char =
('0','1','2','3','4','5','6','7','8','9','A','B','C','D','E','F');
begin
h :=Src shr 4;
l :=Src shl 4;
l :=l shr 4;
Result :=HC[h]+HC[l];
end;

function StrToHex(str : String):String; //字符串转换为2位16进制字符串
var
i : Integer;
begin
Result :='';
for i :=1 to Length(str) do
begin
Result :=Result +Right('00'+ByteToHex(Ord(str[i])),2);
end;
end;
//网上流传的这一段貌似有问题
//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;