Uso de Random

[[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,