Question

How to generate a random hexadecimal string in Pascal

Answer 1

program RandomHexGenerator;

const
  HexChars: string[16] = '0123456789ABCDEF';

function GenerateHex(length: Integer): string;
var
  i: Integer;
  hexStr: string;
begin
  hexStr := '';
  for i := 1 to length do
    hexStr := hexStr + HexChars[Random(16) + 1];  // Pascal strings are 1-based 
  GenerateHex := hexStr;
end;

var
  hexNumber: string;
begin
  Randomize;  // Seed the random number generator 
  
  hexNumber := GenerateHex(8);  // Generate 8-digit hex string 
  
  WriteLn('Random Hexadecimal Number: ', hexNumber);
end.



(*
run:

Random Hexadecimal Number: 3C1B1F9F

*)

 

70+ SQL courses for beginners and professionals