Ver Mensaje Individual
  #6  
Antiguo 02-06-2012
Avatar de Casimiro Noteví
Casimiro Noteví Casimiro Noteví is offline
Merodeador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.669
Reputación: 10
Casimiro Noteví Tiene un aura espectacularCasimiro Noteví Tiene un aura espectacular
Hola, en nuestro FTP encontrarás muchísimo material didáctico, ejemplos, trucos, libros, tutoriales, manuales, programas completos, etc.
Si usas la opción de búsqueda en clubdelphi encontrarás información sobre todo lo que quieras y mucho más, son decenas de miles de temas y centenares de miles de mensajes los que hay almacenados desde hace años.
Lo que quieres se puede hacer con el comando random, por ejemplo, que devuelve un número "aleatorio" cada vez que se le invoca.
Aquí tienes un sencillo ejemplo, extraido de la web delphibasics.co.uk (anótatelo, encontrarás la definición y ejemplos para la mayoría de funciones de delphi y mucho más)

Código Delphi [-]
var
  float : single;
  int   : Integer;
  i     : Integer;

 begin
  // Get floating point random numbers in the range 0 <= Number < 1.0
  for i := 1 to 5 do
  begin
    float := Random;
    ShowMessage('float = '+FloatToStr(float));
  end;

  ShowMessage('');

  // Get an integer random number in the range 1..100
  for i := 1 to 5 do
  begin
    int := 1 + Random(100);    // The 100 value gives a range 0..99
    ShowMessage('int = '+IntToStr(int));
  end;
 end;

A ver si te sirve este ejemplo para que vayas haciendo algo, y ya sabes, si tienes dudas... pregunta, para eso estamos aquí, para ayudar a los demás.
Responder Con Cita