Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 14-05-2011
Rofocale Rofocale is offline
Miembro
 
Registrado: mar 2010
Posts: 182
Poder: 15
Rofocale Va por buen camino
numeros aleatorios y mostrar en edit

hola a todos como puedo hacer para mostrar en un edit numeros aleatorios numeros de 5 digitos
apretar un buttom y en el edit.text aparezcan los 5 digitos y si apreto otra vez aparezcan otros 5 numeros en ves de los anteriores diferentes siempre

gracias
Responder Con Cita
  #2  
Antiguo 14-05-2011
Avatar de Delphius
[Delphius] Delphius is offline
Miembro Premium
 
Registrado: jul 2004
Ubicación: Salta, Argentina
Posts: 5.582
Poder: 25
Delphius Va camino a la fama
La función Random() puede recibir como parámetro un número entero. Este número indicará el rango permitido de valores, siendo éste el tope con lo cual el rango de valores a devolver será de [0,N).

Como tu deseas regresar un número aleatorio entre 11111 y 99999 se puede "forzar" a random a que obtenga un valor entre éstos:

Código Delphi [-]
Nro := 11111 + Random(88889);

La explicación es muy simple: Random() regresará un valor entre 0 y 888889. Luego, el menor número que regresará es 0, por lo que sumado a 11111 obtendremos 11111. El mayor será 88888, con lo que sumado a 11111 te dará un valor de 99999.

¿Simple no?

Habrá otras maneras de hacerlo pero esta me parece la más directa y fácil, todas las opciones terminarán en el uso de random() o de alguna otra función que implemente un generador de números pseudoaleatorios.

Saludos,
__________________
Delphius
[Guia de estilo][Buscar]
Responder Con Cita
  #3  
Antiguo 15-05-2011
Avatar de Delphius
[Delphius] Delphius is offline
Miembro Premium
 
Registrado: jul 2004
Ubicación: Salta, Argentina
Posts: 5.582
Poder: 25
Delphius Va camino a la fama
Rofocale, ¿algún motivo por el cual no hay alguna novedad? He visto que te pasate por el hilo reiteradas veces pero no has dejado ni un sólo comentario. Ni un gracias siquiera.

¿Es lo que tu buscas? ¿O apuntas a otra cosa? ¿Te sirvió de algo? ¿O qué?

Saludos,
__________________
Delphius
[Guia de estilo][Buscar]
Responder Con Cita
  #4  
Antiguo 15-05-2011
Rofocale Rofocale is offline
Miembro
 
Registrado: mar 2010
Posts: 182
Poder: 15
Rofocale Va por buen camino
hola disculpa por no terminar este hilo.. solo que estaba terminando con un error que tenia con unos combobox de devexpress..

bueno si de hecho me sirvio es lo que queria ya que lo que queria era poner un codigo aleatorio para los articulos de un programa y esto me fue perfecto
muchas gracias!
Responder Con Cita
  #5  
Antiguo 16-05-2011
Avatar de Caro
*Caro* Caro is offline
Moderadora
 
Registrado: jul 2004
Ubicación: Cochabamba, Bolivia
Posts: 2.544
Poder: 22
Caro Va por buen camino
Hola, también se puede utilizar RandomRange, añadiendo a uses la unit Math.

Código Delphi [-]
  Edit.Text := IntToStr(RandomRange(11111,100000));

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
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Numeros Aleatorios Ruben_21 OOP 6 10-06-2010 22:40:18
numeros aleatorios no repetitivos d-hugo OOP 6 13-01-2008 14:35:18
Generación de Números Aleatorios DarkDrakon Varios 8 10-10-2006 16:33:06
Función números aleatorios Sarola Oracle 6 17-11-2005 21:26:02
numeros aleatorios emeritos Varios 1 24-11-2003 14:09:43


La franja horaria es GMT +2. Ahora son las 10:15:06.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi