在Delphi 2010中将十六进制字符串转换为ansistring

function HexToBin(const AHexStr: string): AnsiString;
var
  I: Integer;
begin
  Result := '';
  for I := 1 to Length(AHexStr) div 2 do
  begin
    Result := Result + AnsiChar(StrToInt('$' + AHexStr[(I - 1) * 2 + 1] + AHexStr[I * 2]));
  end;
end;

var
  HexStr: string;
  BinStr: AnsiString;
begin
  HexStr := '48656c6c6f20576f726c64'; // 十六进制字符串
  BinStr := HexToBin(HexStr); // 转换为AnsiString
  ShowMessage(BinStr); // 显示转换后的字符串
end;