Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   como hacer Random pero de letras?? (https://www.clubdelphi.com/foros/showthread.php?t=63411)

pablopessoa 12-02-2009 17:17:41

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!

roman 12-02-2009 17:22:56

¿Qué tal algo como?

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

// Saludos

Caro 12-02-2009 17:29:13

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

Delphius 12-02-2009 18:32:02

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.

pablopessoa 12-02-2009 18:39:00

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!

Caro 12-02-2009 18:56:44

Cita:

Empezado por pablopessoa (Mensaje 337945)
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

cHackAll 12-02-2009 20:48:57

Código Delphi [-]
Chr(Random(25) + 65)


La franja horaria es GMT +2. Ahora son las 17:24:56.

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