delphi - 将十六进制格式的数据转换为字符串

Question

我有一些需要以十六进制格式（以字节存储）的数据，我需要将其转换为字符串，数据应该像这样

13 61 23 45 67 8F FF

和预期的输出

13612345678FFF

我知道Chr（）或IntToStr（）函数将不起作用，因为此数据不是实际的十六进制代码，而是以十六进制格式设置的字符串/数字，因此有人对此有何建议？

Answer 1

这用于将字节的动态数组转换为十六进制字符串：

function BytesToHex(aSource: TBytes): string;
begin
  SetLength(Result, Length(aSource) * 2);
  if Length(aSource) > 0 then
    BinToHex(aSource[0], PChar(Result), Length(aSource));
end;

如果您的源字节不在动态数组中，则必须稍作调整代码，但这应该使您大致了解如何执行此操作。