如何将十六进制字符串保存到二进制文件

Question

我有一个hexString，如何将该字符串转换为二进制文件并另存为自定义扩展名的二进制文件？以下是我用来将字符串保存到文件中的示例代码块。

function HexToString(H: String): String;
var I: Integer;
begin
  Result:= '';
  for I := 1 to length (H) div 2 do
    Result:= Result+Char(StrToInt('$'+Copy(H,(I-1)*2+1,2)));
end;

procedure saveAs();
p, k, c, tmp: HexStr;
begin

   k := StringToHex('mykey');

   //TO DO 
   //I need to convert 'k' into binary and save as new file
end;

Answer 1

Delphi的RTL具有HexToBin()个功能。您可以使用FileCreate() + FileWrite()或TFileStream，使用您想要的任何文件名+扩展名将二进制数据写入文件。