Question

generate random string in Pascal

Answer 1

program RandomStringGenerator;

function CreateRandomString(stringLen: Integer): string;
const
  chars = 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz1234567890!@#$%^&*()';
var
  str: string;
  i: Integer;
begin
  str := '';
  
  // Generate random characters until the desired length is reached
  for i := 1 to stringLen do
  begin
    str := str + chars[Random(Length(chars)) + 1];
  end;

  CreateRandomString := str;
end;

begin
  Randomize;  // Seed the random number generator
  Writeln(CreateRandomString(10));
end.



(*
run:

ic5bNIl9$z

*)

 

70+ SQL courses for beginners and professionals