使用 BinToHex() 把 TBytes 转换为十六进制字符串

最新推荐文章于 2021-09-23 14:57:45 发布

转载最新推荐文章于 2021-09-23 14:57:45 发布 · 1.9k 阅读

文章标签：

#delphi #基础语法 #Stream #函数

delphi 基础语法专栏收录该内容

65 篇文章

订阅专栏

本文介绍了一个简单的Delphi函数，用于将字节数组转换为十六进制字符串，并通过一个测试示例展示了如何使用该函数。

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

{函数}
function BytestoHexString(ABytes: TBytes; len: Integer): AnsiString;
begin
  SetLength(Result, len*2);
  BinToHex(@ABytes[0], PAnsiChar(Result), len);
end;

{测试}
procedure TForm1.FormCreate(Sender: TObject);
var
  bs: TBytes;
  rStr: AnsiString;
begin
  bs := BytesOf('ABCDEFG');
  rStr := BytestoHexString(bs, Length(bs));
  ShowMessage(rStr); //41424344454647
end;