Question

How to convert a hex to a byte array in Pascal

Answer 1

program HexToByteArrayProgram;

uses
  SysUtils;

function HexToByteArray(const Hex: string): TBytes;
var
  i: Integer;
  ByteValue: Byte;
begin
  SetLength(HexToByteArray, Length(Hex) div 2);
  for i := 0 to Length(HexToByteArray) - 1 do
  begin
    ByteValue := StrToInt('$' + Copy(Hex, (i * 2) + 1, 2));
    HexToByteArray[i] := ByteValue;
  end;
end;

var
  HexString: string;
  ByteArray: TBytes;
  i: Integer;
begin
  HexString := '1E2D3E4F'; 
  ByteArray := HexToByteArray(HexString);

  for i := 0 to Length(ByteArray) - 1 do
  begin
    Write(ByteArray[i], '(', IntToHex(ByteArray[i], 2), ')', ' ');
  end;
end.



(*
run:

30(1E) 45(2D) 62(3E) 79(4F)

*)

 

70+ SQL courses for beginners and professionals