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 12-02-2009
pablopessoa pablopessoa is offline
Miembro
 
Registrado: may 2008
Ubicación: Argentina
Posts: 162
Poder: 16
pablopessoa Va por buen camino
como hacer Random pero de letras??

hola a todo el mundo!!
bueno la cosa es esa.. se generar numeros aleatoreos con random, pero como se puede hacer para que me de letras al azar? , osea hacer algo asi :
random [a..z] y que me de una letra aleatorea.
Gracias por su tiempo!
Saludos!
Responder Con Cita
  #2  
Antiguo 12-02-2009
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Poder: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
¿Qué tal algo como?

Código Delphi [-]
Copy('abcd....z', Random(26) + 1, 1)

// Saludos
Responder Con Cita
  #3  
Antiguo 12-02-2009
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, o también algo como esto:

Código Delphi [-]
var
 num : Integer;
 car : Char;
begin
 Randomize;
 num := RandomRange(65, 90);
 car := Chr(num);
 showmessage(car);

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
  #4  
Antiguo 12-02-2009
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
O algo como esto:

Código Delphi [-]
function RandomStr: string;
const
ABC = 'ABC...Z';
begin
  result := ABC[Random(Length(ABC))+1];
end;

No la he probado pero creo que funciona.
__________________
Delphius
[Guia de estilo][Buscar]
Responder Con Cita
  #5  
Antiguo 12-02-2009
pablopessoa pablopessoa is offline
Miembro
 
Registrado: may 2008
Ubicación: Argentina
Posts: 162
Poder: 16
pablopessoa Va por buen camino
Gracias por las respuestas!!!
Caro me gusto mas tu solucion, me parecio mas clara, de todos modos roman no descarto ni dejo de agradecer tu solucion.
Entre parentesis, gracias Caro por que ya son varias las veces qeu me brindas una solucion a algun problema.. espero alguna ves poder ayudarte yo.
Muchas gracias!!

al postear esta respuesta me aparecio tu solucion delphius, esta muy buena y que se limite a solo una linea esta muy piola, gracias!
Responder Con Cita
  #6  
Antiguo 12-02-2009
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
Cita:
Empezado por pablopessoa Ver Mensaje
al postear esta respuesta me aparecio tu solucion delphius, esta muy buena y que se limite a solo una linea esta muy piola, gracias!
Lo que puse también se puede limitar a una sola línea:

Código Delphi [-]
  showmessage(Chr(RandomRange(65, 90)));

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
  #7  
Antiguo 12-02-2009
Avatar de cHackAll
[cHackAll] cHackAll is offline
Baneado?
 
Registrado: oct 2006
Posts: 2.159
Poder: 20
cHackAll Va por buen camino
Código Delphi [-]
Chr(Random(25) + 65)
__________________
RTFM > STFW > Foro > Truco > Post > cHackAll > KeBugCheckEx
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
Hacer copy pero un poco diferente Paulao Varios 4 18-06-2008 00:29:22
Hacer Que No Me Acepte Letras O Numeros En Un Edit. wascar2003 Varios 13 01-02-2008 00:37:47
Quiero correr un archivo .sql pero no logro hacer un create / insert joal Conexión con bases de datos 4 29-06-2006 02:54:52
Hacer las letras mas grandes zvf OOP 2 08-04-2006 21:11:27
Hacer un formulario inamovible Pero en una aplicacion CLX ctronx Varios 2 29-06-2004 17:02:59


La franja horaria es GMT +2. Ahora son las 07:08:16.


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