delphi 十六进制hex转字符串

{
关键字=十六进制hex转字符串
采集软件=MKM - 我的知识管理
采集日期=2023-11-23 13:41:50
数字签名=CEEC146D6F4C62F90B27270163C33C25
}

uses ///include
SysUtils, Classes, Math, ElAES;

function HexToStr(Value: string): string;
var
I: Integer;
begin
{十六进制hex转字符串}
Result := ‘’;
for I := 1 to Length(Value) do
begin
if ((I mod 2) = 1) then
Result := Result + Chr(StrToInt(‘0x’ + Copy(Value, I, 2)));
end;
end;