Fórum Função para gerar aleatoriamente um código alfanumérico #236759
08/06/2004
0
Boa tarde, pessoal.
Alguém sabe gerar aleatoriamente um código ALFANUMÉRICO ?
Já antecipo que conheço a função ´random´, por gerar apenas números, não me atende.
Por exemplo: preciso gerar ´n´ códigos diferentes entre si com letras e números aleatórios.
45A2SD1
T7891BO
...
Agradeço qualquer ajuda,
Fabiana Linden
Alguém sabe gerar aleatoriamente um código ALFANUMÉRICO ?
Já antecipo que conheço a função ´random´, por gerar apenas números, não me atende.
Por exemplo: preciso gerar ´n´ códigos diferentes entre si com letras e números aleatórios.
45A2SD1
T7891BO
...
Agradeço qualquer ajuda,
Fabiana Linden
Falinden
Curtir tópico
+ 0
Responder
Posts
08/06/2004
Marcelo Saviski
function TextoAleatorio(Tam: Integer = -1): string;
var
I: Integer;
begin
if Tam = -1 then
Tam := Random(255);
Setlength(Result, Tam);
for I := 1 to Tam do
if Random(2) = 0 then
Result[I] := Chr(Ord(´A´) + Random(Ord(´Z´) - Ord(´A´) + 1)
else
Result[I] := Chr(Ord(´0´) + Random(Ord(´9´) - Ord(´0´) + 1);
end;acho que é isso
Responder
Gostei + 0
08/06/2004
Falinden
Valeu, Marcelo.
Creio que é exatamente isso.
Detalhe: está faltando um parêntese ´)´ no fim das linhas:
Creio que é exatamente isso.
Detalhe: está faltando um parêntese ´)´ no fim das linhas:
Result[I] := Chr(Ord(´A´) + Random(Ord(´Z´) - Ord(´A´) + 1)
Result[I] := Chr(Ord(´0´) + Random(Ord(´9´) - Ord(´0´) + 1);
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)