Função para gerar aleatoriamente um código alfanumérico

Delphi

08/06/2004

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


Falinden

Falinden

Curtidas 0

Respostas

Marcelo Saviski

Marcelo Saviski

08/06/2004

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


GOSTEI 0
Falinden

Falinden

08/06/2004

Valeu, Marcelo.

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);



GOSTEI 0
POSTAR