RandomRange

[marcoszorrilla]

Código Delphi [-]
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,Math;
procedure TForm1.Button1Click(Sender: TObject);
begin
Randomize;
Edit1.Text:=IntToStr(RandomRange(1, 10));
end;

Un Saludo.

[dec]

Hola,

Vale... reconozco que me confundí, puesto que además no he usado nunca "RandomRange", sino "Random", pero...

Empezado por Ayuda de Delphi

To initialize the random number generator, add a single call Randomize or assign a value to the RandSeed variable before making any calls to RandomRange.

Es decir, donde antes escribo "RandSeed" (mira que ví que era una variable, no una función...), debería escribirse "Randomize", aunque, esto de los números aleatorios me supera... y casi mejor me hubiera estado calladito y dejar a quien verdaderamente sepa de este tema que sea quien ayude.

[mierda]

Me falto ponerte la unidad .....

Pero me ha sorprendido la velocidad con la que estais todos al loro .... mu buen gesto si señor!!!

enga ... un saludo.

[dec]

Hola,

Ten en cuenta lo que dice la ayuda sobre el procedimiento "Randomize", entre otras cosas:

Empezado por Ayuda de Delphi

Do not combine the call to Randomize in a loop with calls to the Random function. Typically, Randomize is called only once, before all calls to Random.

Es decir, más bien que esto:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
  numeroAleatorioDelUnoAlCien: Integer;
begin
  for i := 1 to 100 do
  begin
    Randomize;
    numeroAleatorioDelUnoAlCien := Math.RandomRange(1, 100);
    Caption := IntToStr(numeroAleatorioDelUnoAlCien);
  end;
end;

... mejor hacer esto otro, o sea, quitar el "Randomize" del bucle:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
  numeroAleatorioDelUnoAlCien: Integer;
begin
  Randomize;
  for i := 1 to 100 do
  begin
    numeroAleatorioDelUnoAlCien := Math.RandomRange(1, 100);
    Caption := IntToStr(numeroAleatorioDelUnoAlCien);
  end;
end;

[dec]

Hola,

Empezado por Caral

La de Dec no se porque hay que quitarle RandSeed, si no da un error, tal vez me indicas que paso Dec, te lo agradeceria mucho asi no me quedo con la duda.

Bueno, arriba creo que hablo sobre el tema, empero, a mí me "compila" el código del ejemplo (aunque equivocado), así que, tendrías que referir por aquí de qué error se trata: "mi bola de cristal tiene nubes".

[[seoane]]

Empezado por dec

... mejor hacer esto otro, o sea, quitar el "Randomize" del bucle:

Muy cierto, lo mejor es llamarlo solo una vez en toda la aplicacion. Con respecto a meter el Randomize dentro del bucle, en este hilo quedo demostrado que los numeros asi generados no son tan "aleatorios" como deberian.

[dec]

Hola,

Empezado por Seoane

Muy cierto, lo mejor es llamarlo solo una vez en toda la aplicacion.

Ajá,... o sea, que, para mayor "seguridad" lo suyo es ejecutarlo una vez en ¿la vida de la aplicación?... no ya una vez fuera de un bucle cualquiera, sino que, pareciera por lo que dices que el código que puse anteriormente (dentro del evento "onclick" de un botón) no sería el mejor lugar para situar la llamada a "Randomize"... tal vez en la inicialización de cierta unidad, o en el evento "OnCreate" del formulario principal... o en el propio "dpr"... ¿? ¿?

Empezado por Caral

Os aveis puesto a pensar que ninguna respuesta fue en vase a Funcion, todos pusisteis Procedimientos (Procedure), hay alguna razon en particular o el llamado a una funcion es mas complicado ?, no resulta conveniente o ???

Bueno. "RandomRange" es una función. "Randomize" no, pero, eso no es cosa nuestra... Es algo que nos viene dado, o sea. Piensa que un procedimiento se diferencia de una función en que esta última retorna un valor de forma "natural", mientras que un procedimiento no lo hace. No se trata de que una cosa sea más "difícil" que la otra, me parece a mí, vaya.

"RandomRange" tiene que retornar algo, precisamente, el número aleatorio, mientras que "Randomize" no; simplemente se llama a este procedimiento, pero, no esperamos ningún valor como resultado.

[[Caral]]

Muchas Gracias a todos por la amplia explicion, ya saveis que no me conformo con la respuesta corta , con esa no se aprende.
Gracias a todos los Maestros
Saludos

[[seoane]]

Jeje, ya te iva a llamar la atencion dec. Randseed es como su propio nombre indica una "semilla", para un mismo valor de RandSeed la secuencia de numeros "aleatorios" que se genera es la misma. De hecho el metodo Randomize lo unico que hace es asignarle un valor obtenido del reloj del sistema, para intentar que la secuencia originada siempre sea diferente.

Código Delphi [-]
procedure Randomize;
var
  Counter: Int64;
begin
  if QueryPerformanceCounter(Counter) then
    RandSeed := Counter
  else
    RandSeed := GetTickCount;
end;

[[Caral]]

Gracias ya entendi lo de RandSeed pero
Os aveis puesto a pensar que ninguna respuesta fue en vase a Funcion, todos pusisteis Procedimientos (Procedure), hay alguna razon en particular o el llamado a una funcion es mas complicado ?, no resulta conveniente o ???
Saludos

[[Caral]]

Maestros mil gracias
funcionan perfectamente,
La de Dec no se porque hay que quitarle RandSeed, si no da un error, tal vez me indicas que paso Dec, te lo agradeceria mucho asi no me quedo con la duda.
Saludos y gracias de nuevo.