Ver Mensaje Individual
  #1  
Antiguo 22-07-2011
sabueso1010 sabueso1010 is offline
Miembro
NULL
 
Registrado: jul 2011
Posts: 31
Reputación: 0
sabueso1010 Va por buen camino
Cool random siempre me da el mismo valor

hola foro quiero tener un numero aleatorio para cambiar aleatoriamente el fondo de pantalla de mi proyecto, las imagenes de fondo tienen nombre numerico es decir 1.jpg, 2.jpg, 3.jpg, etc, el problema es que nunca cambia
siempre me da como resultado aleatorio el numero 1, alguien tiene idea de que este pasando ?

este es mi codigo

Código Delphi [-]
var
  _fondo: string;
  r: integer;
begin
  r:=RandomRange(1,5);
  _fondo:=inttostr(r)+'.jpg';
  showmessage(_fondo);
  fondo.Image.Picture.LoadFromFile(_fondo);

saludos
Responder Con Cita