Ver Mensaje Individual
  #3  
Antiguo 04-06-2010
Avatar de Caro
*Caro* Caro is offline
Moderadora
 
Registrado: jul 2004
Ubicación: Cochabamba, Bolivia
Posts: 2.544
Reputación: 22
Caro Va por buen camino
Hola Ruben, yo lo haría de la primera forma que indica delphi.com.ar, te pongo un ejemplo utilizando un StringList.

Código Delphi [-]
 sl : TStringList;
 
 ..........................
 ..........................
 Band : Boolean;
begin
 Randomize;
 Rango := 100; 

 Band := True;
 While Band and (sl.Countdo
 begin
  Num := Random(Rango);
  if (sl.IndexOf(IntToStr(Num))=-1)  then
   begin
    sl.Add(IntToStr(Num));
    Band := False;
    showmessage(IntToStr(Num));
   end;
 end;
end;

Saluditos
__________________
Disfruten cada minuto de su vida a lado de sus seres queridos como si fuese el ultimo, uno nunca sabe lo que puede pasar.
Responder Con Cita