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