Cadena de Caracteres Aleatorios
Buenas tardes, necesito una ayudita. Como hago para generar una cadena de caracteres aleatorios con una longitud de 28 caracteres. Es para realizar un sistema para que genere números o códigos para tarjetas magnéticas
1 respuesta
Respuesta de wgandalf
1
procedure TForm1.Button1Click(Sender: TObject);
function PalabraAleatoria(Longitud: integer): string;
const
Letras = '01234567890ABCDEFGHIJKLMNOPQRSTUVWXYZ';
var
n : integer;
begin
Result:='';
for n:=1 to Longitud do Result:=Result+Letras[1+Random(Length(Letras))];
end;
begin
Caption:=PalabraAleatoria(10);
end;
Fíjate si te sirve esto
function PalabraAleatoria(Longitud: integer): string;
const
Letras = '01234567890ABCDEFGHIJKLMNOPQRSTUVWXYZ';
var
n : integer;
begin
Result:='';
for n:=1 to Longitud do Result:=Result+Letras[1+Random(Length(Letras))];
end;
begin
Caption:=PalabraAleatoria(10);
end;
Fíjate si te sirve esto
