Uso de Random

[arespremium]

Hola yo de nuevo

quiero usar el random en delphi 7, bueno no se como hacerlo, pero que se limite en numero de 1 al 10.

se da click en aceptar y muestra un numero aleatorio, pero nunca repetido, es alazar, saludos

Ver imagen

[[Caral]]

Hola
Hay que colocar ( Math ) en el uses.

Begin
Randomize;
Edit1.Text:= FloatToStr(RandomRange(1, 10));

Tal vez te sirva
Saludos

Nota: No pude colocar las etiquetas.

[[cHackAll]]

Tambien se puede sin la unidad Math,

Código Delphi [-]
...
 
 Edit1.Text:= IntToStr(Random(10) + 1);
 
...

Saludos!

[[Delphius]]

Quisera agregar a lo aportado que para conseguir no repetidos te fijes en esta búsqueda. El tema fue tratado en ocasiones.

Saludos,

[[cHackAll]]

Empezado por Delphius

Quisera agregar a lo aportado que para conseguir no repetidos te fijes en esta búsqueda. El tema fue tratado en ocasiones.

Saludos,

Creo que tu busqueda no esta disponible para nosotros los mortales... danos un resumen para que arespremium entienda, supongo que es con RandSeed y Randomize no???

[[Delphius]]

Pues que curioso... no pude entrar a la búsqueda...

Bueno, preparé un ejemplo sencillo, hecho "a medida" para los primeros 10 números.

Código Delphi [-]
type
TNro10 = 1..10;
TTiradas = set of TNro10;

procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
begin
  i := Random(10) + 1;
  if i in Tiradas
     then ShowMessage('Nro ya repetido: '+IntToStr(i))
     else begin
            include(Tiradas,i);
            ShowMessage('El número es: '+IntToStr(i));
          end;
end;

Espero que sirva de algo... para darse una idea creo que sirve.

Saludos,