Cita:
Empezado por fpirovani
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)); 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.