🚀 go-pugleaf

"Martin Strand"  wrote
> Sven Pran wrote:
>
> > "Eugene V. Goldberg" <egold@mts-nn.ru> wrote in message
>
> >> function TfrmTickets.GetPassword: String;
> >> var
> >>   i, Digit: Integer;
> >> begin
> >>   Randomize;
> >>   Result := '';
> >>   for i := 1 to 8 do
> >>   begin
> >>     Digit := Random(10);
> >>     if Digit = 0 then
> >>       Digit := 1;
> >>     Result := Result + IntToStr(Digit)
> >>   end;
> >> end;
>
> > Digit := Random(10) generates a single number (digit) in the range
> > 0..9 and then you change every occurrence of the digit 0 to digit 1
> >
> > This results is no zero digits and twice the count of number one
> > digits to what I assume you want (equal probability for each digit in
> > the range)?
>
> ... so a better solution would be
>   Digit := Random(Highest-1)+1;
> In this case, your numbers will be in the range 1..Highest.

No, they will be in the range 1 to Highest-1 !

All passwords I have ever seen when they consist of numerical digits
cosist of digits in the range '0' to '9', not '1' to some "highest digit".

Sven