Ver Mensaje Individual
  #5  
Antiguo 22-05-2012
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Cita:
Empezado por fpirovani Ver Mensaje
perdon por la tardanza en responder, es que tuve un problema con mi cuenta y no podia acceder.

no se en que va, pero cree un formulario nuevo para probar y con el mismo codigo anda. la verdad que no entiendo en que le erre.

el codigo es muy simple.

Código Delphi [-]
procedure TForm1.BotonGenerarNumeroClick(Sender: TObject); 
begin  
  Randomize;  
  MostrarNumero.Caption := IntToStr(random(9)); /// muestro en un label el numero generado 
end;
Hola fpirovani.

Del modo que utilizas Random en tu código te va a generar valores enteros comprendidos entre cero y ocho, es decir que 0 <= Random(n) < n.

Otra forma de utilizarlo es multiplicar el valor máximo deseado por el resultado de la función Random sin argumentos. En este caso se da que 0 <= Random < 1, el resultado obtenido es de punto flotante por lo que tendrías que usar la función Round para utilizar luego IntToStr:
Código Delphi [-]
  Label1.Caption:= IntToStr(Round(Random* 9));

Mirando tu código, no veo la posibilidad que estés obteniendo un valor inferior a cero o superior a ocho...

Saludos.
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....

Última edición por ecfisa fecha: 22-05-2012 a las 21:44:18. Razón: correción ortográfica
Responder Con Cita