Funcion Random no respeta rango

[ecfisa]

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)); /// 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.