使用 BinToHex() 把 TBytes 转换为十六进制字符串 - 回复 "梧桐栖凤" 的问题

本文主要是介绍使用 BinToHex() 把 TBytes 转换为十六进制字符串 - 回复 "梧桐栖凤" 的问题，对大家解决编程问题具有一定的参考价值，需要的程序猿们随着小编来一起学习吧！

{函数}
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;

这篇关于使用 BinToHex() 把 TBytes 转换为十六进制字符串 - 回复 "梧桐栖凤" 的问题的文章就介绍到这儿，希望我们推荐的文章对大家有所帮助，也希望大家多多支持为之网！