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

在Delphi 2010中，您可以使用HexToBin函数将十六进制字符串转换为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;

在这个示例中，HexToBin函数接受一个十六进制字符串作为输入，并返回一个AnsiString类型的结果。函数遍历输入字符串的每一对字符，并将它们转换为相应的字节值，然后将这些字节值添加到结果字符串中。

您可以使用以下代码将十六进制字符串转换为AnsiString：

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

在这个示例中，我们首先定义了一个十六进制字符串HexStr，然后使用HexToBin函数将其转换为AnsiString类型的BinStr。最后，我们使用ShowMessage函数显示转换后的字符串。