Delphi - problema con randon

 
Vista:

problema con randon

Publicado por Ronny (4 intervenciones) el 30/09/2005 19:24:24
kiero hacer una combinacion de 3 numero al azar estoy utilizando el random, pero siempre me dan los mismos nuemeros, yo quiero que siempre varien , es decir que lso numeros cambian peor cada ves que inicio mi programa sienpre son los mismos,
yo quieor que siempre salgan numeros distintos

lo necestito para un tragamonedas
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:problema con randon

Publicado por Dr Juzam (821 intervenciones) el 30/09/2005 21:03:07
Para solucionar esto lo que debemos hacer es "aleatorizar" la semilla del random (de otro modo usará siempre la misma semilla y al ser números seudoaleatorios los que arroja un radom serán siempre la misma sucesión). Todo esto se soluciona con un simple Randomize en el OnCreate del Form:

procedure TForm1.Create (Sender: TObject);
begin
{...}
Randomize;
{...}
end;
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar