webbrowser randonzime

[dec]

Hola,

Yo me aproximaría al asunto con algo así:

Código Delphi [-]
var
  URLs: array[0..4] of string = (
    'http://www.clubdelphi.com',
    'http://www.clubdelphi.com/foros/',
    'http://www.clubdelphi.com/trucos/',
    'http://componentes.clubdelphi.com/',
    'http://www.terawiki.clubdelphi.com/'
  );

procedure TForm1.Button1Click(Sender: TObject);
begin
  Randomize();
  ShowMessage(
    URLs[Random(Length(URLs)-1)]
  );
end;

Como ves, primero preparamos un "Array de cadenas" con las URLs necesarias. Después, para obtener una URL aleatoria de entre dichas URLs, usamos algo como:

Código Delphi [-]
URLs[Random(Length(URLs)-1)]

La función "Random()" nos retornará un número aleatorio entre el 0, y, en este caso, el número de URLs en nuestro "Array" menos uno, puesto que el número de elementos es 5, pero, el último elemento del "Array" tendrá un índice 4. Total, que obteniendo un índice válido ya podemos recoger una de las URLs de nuestro "Array".

Quizá existan mejores formas de hacerlo, más aún, estoy seguro de que así es, pero, al menos es una posible solución.