Question

How to convert a byte array to a hex string in Pascal

Answer 1

program ByteArrayToHexString;

uses
  SysUtils; // IntToHex

procedure ConvertToHexString(const byteArray: array of Byte; var hexString: string);
var
  i: Integer;
begin
  hexString := '';
  for i := Low(byteArray) to High(byteArray) do
    hexString := hexString + IntToHex(byteArray[i], 2);
end;

var
  byteArray: array[0..5] of Byte = (3, 10, 7, 15, 12, 255);
  hexString: string;

begin
  ConvertToHexString(byteArray, hexString);
  WriteLn('Hex String: ', hexString);
end.



(*
run:

Hex String: 030A070F0CFF

*)

 

70+ SQL courses for beginners and professionals