SRL Archive - Help and Support

How would you make it select a random procedure to do?

i guess like this

procedure PickRandom;
var I : Integer;
begin
  repeat
     I := Random ( 6 ) + 1;
  until ( I >= 1 ) or ( I <= 5 );

  case I of
     1: DoSomething1;
     2: DoSomething2;
     3: DoSomething3;
     4: DoSomething4;
     5: DoSomething5;
  end;
end;

begin
  case Random(3)+1 of
   1: Procedure1;
   2: Procedure2;
   3: Procedure3;
  end;
end.

or

begin
 if(Random(2)+1 = 1)then
   Procedure1
  else
   Procedure2;
end.

;)

Or if you like messy code

Procedure RandomPick;
var i:integer;
begin
Random(i+3));
Begin
if(i=1)then
Dosomething;
if(i=2)then
Dosomething;
if(i=3)then
Dosomething;
    end;
end;