Subj : Re: Some programming help
To   : Sean Dennis
From : Nelgin
Date : Sat Jul 20 2019 14:50:19

Sean wrote:
S> Hello All,
S> 
S> I am trying to write a procedure in TP that will display a text string in 
S> random colors except that the color selection is only run once.  I know it's a 
S> logic error but I can't seem to see it with my own eyes.  This is for my 
S> doorkit so there's some proprietary commands in here but this is what I have 
S> so far:

Oh, it looks like Randomize, in FreePascal, is based on the system clock,
and TurboPascal may be the same.

Consider this small program

Program Color;

Uses Crt;

procedure pausekey;
begin
  while (not keypressed) do
  begin
  end;
end;

var
  I, X : Integer;

begin
  for X := 1 to 20 do
  begin
    Randomize;
    I := Random(15);
    WriteLn('Number: ', X, ' is ', I);
    { Delay(1000); }
  end;
  pausekey;
end.

If yo run it without the delay, you get the same number or maybe you get two
numbers if it advances a second. Now include a 1 second delay by
uncommenting the delay command and you'll get different numbers.

If you need something faster, you'll probably have to come up with your own
solution.

.