Inicio › Foros › Lenguajes de programación, desarrollo, código fuente › Delphi › Generar número aleatorio grande en Delphi Pascal [RESUELTO] › Respuesta a: Generar número aleatorio grande en Delphi Pascal [RESUELTO]
11/19/2024 a las 14:19
#51498
alonsojpd
Superadministrador
Puedes usar la siguiente función que generará una cadena de texto de números aleatorios con el tamaño que le indiques en el argumento al llamarla:
Delphi/Pascal
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 |
// Generar número aleatorio grande para código de validación function generarNumeroGrandeAleatorio (longitud : integer) : string; const caracteresNumeros = '0123456789'; var i, indiceRandom: integer; numeroGrande : string; begin try Randomize; numeroGrande := ''; for i := 1 to longitud do begin indiceRandom := Random(Length(caracteresNumeros)) + 1; numeroGrande := numeroGrande + caracteresNumeros[indiceRandom]; end; Result := numeroGrande; except on E : Exception do begin MessageDlg('Error al generar un número aleatorio grande.', mtError, [mbok], 0); end; end; end; |