Question

How to generate a random HEX RGB color code in Pascal

Answer 1

program RandomHexColor;

function GenerateRandomHexColor: string;
const
  HexChars: array[0..15] of char = ('0','1','2','3','4','5','6','7','8','9','A','B','C','D','E','F');
var
  i: integer;
  hex: string;
begin
  hex := '';
  for i := 1 to 6 do
    hex := hex + HexChars[random(16)];
  GenerateRandomHexColor := hex;
end;

begin
  Randomize;  // Seed the random number generator 
  writeln('Random HEX Color: #', GenerateRandomHexColor);
end.



(*
run:

Random HEX Color: #ABB747

*)

 

70+ SQL courses for beginners and professionals